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Redactioneel 


Op het moment van ter perse 
gaan van dit nummer, hadden 
we nog steeds geen 128 op de 
redactie in handen gehad. Wel 
hebben we in Duitsland een 
paar modellen uit een niet hele¬ 
maal perfecte voorserie ge¬ 
zien, die ook in ons land hier en 
daar opduiken en enige pak¬ 
ken documentatie, die we ook 
deels gebruikt hebben voor ar¬ 
tikelen. Maar een officieel door 
Commodore geleverde machi¬ 
ne is er nog niet of is er nog 
niet. Vrijwel alle tests, ook in 
toonaangevende bladen, zijn 
dus of niet echt of gedaan met 
halfgare machines. De hele 
vertraging vinden we jammer, 
omdat deze machine al meer 
dan 9 maanden geleden aan 
het publiek getoond is op di¬ 
verse beurzen. Achteraf blijkt 
dat grotendeels ’VAPORWA- 
RE" geweest te zijn, versies die 
half gereed waren of slechts 
64’s in 128 kastjes. Waarom 
laat een bedrijf, dat als onbe¬ 
twiste marktleider op de huis -1 
computermarkt toch helemaal 
geen behoefte heeft aan over¬ 
spannen verwachtingen, haar 
klanten zo lang wachten? 

We verwachten de machine nu 
echt binnen enkele weken en 
Commodore verzekerde ons, 
dat op de Commodore-lnfo 
beurs nu toch echt 128’s zullen 
zijn. Een reden te meer, om op 
14 september naar de Hou- 
trusthallen in Den Haag te 
komen. 
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LUC SALA’S 
DATAKOLOM 


Gelukkig neem ik maar één klein 
computertje mee op vakantie, want 
dat is nu net de periode, dat ik eens 
zonder zo’n ding wil leven. Alleen de 
Electronic Mail kan ik niet missen, 
het contact met mijn wereldwijde 
kring van computervrienden gaat 
dag en meestal bij voorkeur 
’s nachts, altijd door. Meestal heel 
laat, als de telefoon niet meer rinkelt, 
sluit ik computer en modem aan, bel 
de dichtstbijzijnde Tymenet compu¬ 
ter en wissel via de mailbox berich¬ 
ten uit. Op die manier weten we 
meestal erg snel, wat er gebeurt op 
computergebied. Het nieuws over de 
Amiga kwam zo binnen, ervaringen 
over software worden uitgewisseld 
en ook financiële resultaten van be¬ 
drijven komen zo actueel op mijn 
beeldscherm te staan. 

Maar juist het feit, dat ik voor die toe¬ 
passing toch mijn computer mee moet 
nemen, brengt me op de VAKANTIE- 
COMPUTER. Want in een tijd, waarin 
de beginmodellen voor minder dan 300 
gulden over de toonbank gaan, zou er 
toch een markt moeten zijn voor gespe¬ 
cialiseerde rekenvriendjes. Computers 
vooreen speciaal doel en ja, een water¬ 
dicht modelletje voor Sail Amsterdam 
deelnemers of eigenlijk alle vakan¬ 
tiegangers in Nederland is natuurlijk 
nooit weg. 



En omdat er hopelijk wel toeschouwers 
zijn, die dan mijn kunsten willen bewon¬ 
deren, een tweede scherm de andere 
kant uit, waar zij op kunnen meege¬ 
nieten. Ik schrijf dan stiekem een klein 
programmaatje, dat op dat tweede 
scherm de demo-mode laat afdraaien, 
zo goed ben ik namelijk niet. 

Wanneer ik echt actief wil worden, ver¬ 
vang ik de joystick door een actiematje, 
dat mijn bewegingen overbrengt naar 
de computer. Natuurlijk zit er niet alleen 
een kleine cassetterecorder in mijn va- 
kantie-computer, maar ook een radio 
en natuurlijk een TV-ontvanger. Dat ge¬ 
sleep met dat dubbele beeldscherm is 
toch onzin, als ik daarnaast ook nog 
een aparte TV mee moet nemen? Dat 
de bovenkant fungeert als zonnecel en 
zo geen stroom nodig is, dat was ook te 
begrijpen. Gesleep met accu’s of ellen¬ 
lange stroomkabels laat ik aan anderen 
over. 

Wat denkt u van een leuke vakan- 
tiecomputer voor uzelf, een ding voor 
bij het skieën, om het barbecueproces 
feilloos te begeleiden, om de histori¬ 
sche bezienswaardigheden in de juiste 
volgorde af te lopen, om uw valutasom- 
metjes voor u te maken, met een op- 
blaaskussentje eronder om in het 
zwembad ook rustig door te Adventu¬ 
ren, ga maar door. 


Verschilt 


uw VAKANTIECOMPUTER 
van uw gewone tikbordje? 


Voor mijzelf zou de vakantiecomputer 
een behoorlijk groot intern gehuegen 
moeten hebben. 

Daarin zou ik alle spelletjes, die in de 
loop van het jaar door gebrek aan tijd 
niet echt zijn uitgeplozen en doorges¬ 
peeld, opslaan. Maar omdat ik dat na¬ 
tuurlijk op het strand in een zuidelijk 
land wil doen, wel met een beeld¬ 
scherm met afdoende zonneklep. 


We moeten eens af van die eenheids¬ 
worst, wilt u niet graag een speciale 
computer voor bij het surfen, natuurlijk 
ook waterdicht, en geschikt om bv. de 
optimale zeilspanning mee uit te reke¬ 
nen, een kaart van het vaarwater te 
laten zien en natuurlijk automatsich re¬ 
agerend op ongunstige windberichten. 
Dan kunt u van het water af, of juist 
erop, afhankelijk van uw surflust. • 


VOSWARE 

Nederlandse Software voor CBM-64 

TV-TEKST 

Complete tekstverwerker voor zeer 
weinig geld 

* eenvoudig te leren, schrijfmachine 
nu overbodig 

* speciale versie werkt met 
KCS TAPE-QUEEN 

PRIJS ƒ 85,— cassette 
ƒ 90,- diskette 

INFO-EXPERT 

Krachtig bestandspakket 

* eigen bestanden definiëren en maken 
*. zoeken, sorteren en printen zoals u wilt 

* maakt ook adreslabels 

* vele toepassingen: 
(leerlingen)adressenbestand, boekenbe¬ 
stand, voorraadbestand, enz. 

PRIJS ƒ 229,- cassette/diskette 

INFO-DISK 

Verzamelt diskindexen voor 

INFO-EXPERT 

PRIJS ƒ 29,- diskette 

INFO-TEKST 

* print persoonlijke brieven 

* maak modelbrief met TV-TEKST 

* adressen komen via INFO-EXPERT 
PRIJS ƒ 79,- cassette/diskette 

VOSWARE-PAKKET 

ƒ 369,- cassette ƒ 399,- diskette 

* TV-TEKST * TV-TEKST 

* INFO-EXPERT * INFO-EXPERT 

* INFO-TEKST * INFO-TEKST 

* INFO-DISK 

TAPE-QUEEN ƒ 98- 

* uitbreidingsmodule van KCS tbv 
cassette 

* VOSWARE bestanden snel lezen en 
schrijven 

COMMODORE PC10 

* prima IBM compatible PC 
ƒ 5695,- (excl. BTW) 

NAKAJIMA printers 

* NP-2200 dot matrix 

ƒ 1595,- (excl. BTW) 

- flitsend en goedkoop 

- 165 karakters per sekonde 

- Near Letter Quality 

* AP-650 margrietwiel 

ƒ 1895,- (excl. BTW) 

- mooier kan bijna niet 


VOSWARE 


Molvense Erven 82, 

5672 HM Nuenen 
Meer weten of bestellen: 
tel. 040-834120 

Aantrekkelijk dealerschap voor de 
software mogelijk 



EPSON GX- 


Business Class vo 
ommodore C 
gebruikers. 
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aansluitklaar 



Voor de kwaliteitsbewuste C-64 gebruikers is er nu de 
Epson GX-80 printer die speciaal voor u ontworpen werd, 
snel is, maar ook letterkwaliteit kan printen. 

Professionele printtechniek voor een ongelooflijk lage 
prijs. De onovertroffen Epson kwaliteit voor probleemloos 
gebruik met uw C-64 computer. 

De belangrijkste eigenschappen: 

• afdruksnelheid 100 tekens per sekonde 

• 9 x 9 matrix, dus duidelijke letter 

• mogelijkheid om eigen tekens op te slaan 

• 1 KByte geheugenbuffer 

• bidirektioneel printen met logic seeking 

• 96 ASCII tekens en 32 internationale tekens, zowel 
normaal, cursief als Near Letter Quality 

Sheetfeeder en tractorfeeder als extra leverbaar. 

De GX-80 is, dankzij een speciale interface, aansluitbaar 
op praktisch alle gangbare computers. Naast Commodore 
bijvoorbeeld ook Apple, Atari, Centronics, IBM, MSX en 
Sinclair. 

*Epson GX-80, ƒ . 

aansluitklaar op C-64 J ^ Ivf j 

excl. btw. 
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Nedersoft 

Er broeit weer van alles in de 
aanloop naar het computer- 
hoogseizoen. Het populaire 
Nederlandse softwarehuis Ra- 
darsoft heeft voor het najaar 
weer een aantal superstunts in 
petto. Nardo Jacobs noemt 
zijn tweemansspel Co en CO 
als tip, maar ook op adventure- 
gebied is men na EINDELOOS 
nu met DE SEKTE, een beeld- 
avontuur van John Van der 
Aart, op weg naar de echte top 
op software gebied. Radarsoft 
viert nu ook in Amerika succes¬ 
sen met de verschillende To¬ 
pografie versies, die daar 
MAPS heten. Dit najaar komt 
ook, in samenwerking met een 
grote educatieve uitgeverij, 
een Radarsoft verkeersspel uit, 
een unicum door de grote va¬ 
riëteit en de combinatie van 
een echte grote stad met we¬ 
gen, viaducten en de spelele¬ 
menten die men er in verweven 
heeft. Overigens zijn er van ver¬ 
schillende kanten al signalen, 


dat men dit najaar weer volop 
in de slag gaat en dat is voor de 
consument alleen maar prettig. 
Aackosoft bijvoorbeeld gaat 
een nieuwe serie amerikaanse 
software naar Nederland halen 
en ook de winkeliers door meer 
service er toe overhalen, om 
hun pakketten op grotere 
schaal in de winkels te hebben. 
Meer keus dus voor de consu¬ 
ment. Verder verwachten we 
een stevige bundelings-ten- 
dens bij de 64, dus bij de com¬ 
puter een leuk setje software 
om de start wat makkelijker te 
maken. De prijs gaat niet om¬ 
laag, maar men krijgt meer 
waarde voor zijn geld. Op post¬ 
order gebied zijn er grote din¬ 
gen aan het komen en wie zijn 
computerinvesteringen wil te¬ 
rugverdienen, kan aan het 
MCN/RABO beursspel mee¬ 
doen. Wie een modem heeft, 
kan bij de diverse bulletin¬ 
boards (MicroTEL, Hot News) 
ook steeds meer programma’s 
downloaden. 


Postbus 25, 5473 ZG Heeswijk-Dinther, Holland, 
tel. 04139-8911, telex 74810, facsimile 04139-1009 (aut) 



Beach Head II 

Met twee spelers tegen elkaar 
een echt gevecht kunnen aan¬ 
gaan, dat is het meest aantrek¬ 
kelijke van Beach Head II van 
ACCES software. Maar natuur¬ 
lijk is er altijd de computer om 
de rol van de dictator over te 
nemen, die dan de eerste spe¬ 
ler moet bevechten. Met veel 


variaties en taf reien, ook via 
wat voice-simulatie wordt het 
geheel vrij realistisch. Goede 
driedimensionele graphics en 
acceptabele schietscenario’s, 
de afwisseling maakt dit spel 
aantrekkelijk. Zowel als heli- 
copterpiloot als in de rol van 
infanterist kan men zich uitle¬ 
ven in 4 deelspelen. 





TOP TIEN 

Het is erg moeilijk om een eer¬ 
lijke top-tien samen te stellen, 
de leveranciers komen vaak 
met erg overdreven verkoopre¬ 
sultaten. Op basis van wat we 
van hen, maar ook uit de win¬ 
kels horen stelden we de vol¬ 
gende lijst samen: 

O EINDELOOS (radarsoft) 

© SOFTAID (samenwerking) 
0 SPITFIRE (mirrorsoft) 
©AIRWOLF (aackosoft) 

0 GHOSTBUSTERS 
(activision) 

©TOPOGRAFIE WERELD 
(radar) 

o JAMES BOND (men) 

© PRINTSHOP (broderbund) 
©SHADOWFIRE (beyond) 
©TOUR DE FRANCE (ariola) 

C-64 in India 

Commodore is er als eerste 
Amerikaanse computerfabriek 
erin geslaagd om een vestiging 
te openen in India. In Bhuba- 
neshwar, opent het bedrijf een 
fabriek met voorlopig een jaar- 
capacitieit van 100.000 C-64 
computers. Na de Volksrepu¬ 
bliek China is India, met ruim 
700 miljoen inwoners, zich in 
hoog tempo aan het ontwikke¬ 
len tot een zeer belangrijke 
markt voor high-tech pro- 
dukten. 

MPS-IOOO 

Deze nieuwe printer van CBM, 
die we over enige maanden 
verwachten, is de MPS 1000. 

Geschikt voor zowel NLQ let- 
terkwaliteit in de langzame, 
maar gedetailleerde 16 eps 
mode als voor snelle proef en 
listingafdrukjes met 100 cps. 
Ook de grafische mode is aan¬ 
wezig, waarmee deze printer 
de kwaliteiten van 802 en 803 
in zich verenigt. 

Computer-GO 

Met de computer aan Go doen, 
dat kan en u kunt zelfs met een 
eigen of verbeterd programma 
meedoen aan het kampioen¬ 
schap, dat op 16 november in 
Musis Sacrum in Arnhem ge¬ 
houden wordt. Inlichtingen 
Joop Oele, Fahrenheitstr 43 
Nijmegen, 080-567996. 


Electronische vlooi¬ 
enband 

Ook de hond ontkomt niet aan 
de electronische revolutie. Zijn 
staart is onvoldoende, denkt 
Biotechnology uit Florida en 
ontwikkelde de MICROTECH 
vlooienband. Deze werkt met 
geluid van een zeer hoge fre¬ 
quentie, niet hoorbaar voor 
mens of huisdier, maar zeer 
hinderlijk voor vlooien en 
vliegen, die dan ook de benen 
nemen. 



MINIMAAL 


Sit 


25% KORTING 


OOM P 0 0 4SSS ENa4RANTiE 

COMMODORE PC-in 

«“mToos ON ' TOR - 2 >< 3 “k SFL oppv 


De compatibele Pc 
voor een 
vriendelijke prijs 


ADVIESPRIJS ƒ 5.695,- EXCL. B.T.W 



caol. B.T.W 

Onze prijs... ƒ4 275- 

>or mail-order: alle J 

talingen via RAro- ’ 


Voor mail-order: alle 
betalingen via RABO- 
OINTHER t.n.v. CCC BV 
ReK.nr. 1 1.16.21.593 '' 
Alle prijzen excl. btw 
Alle leveringen af 

Heeswijk-Dinther. 

Magazijn en kantoren 

Oa^trffrtt ??• ‘ vri i da 9 van 
08.30 tot 18.00 uur 


(excl. btw) 


04139-3192 


( COMPUTER CASH & 

! e r ARRY NEERLAND BV 

Brouw ersstra at 15 

5473 HB Heeswijk-Dinther 


I 
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BETAALBAAR COMPUTER- 
PLEZIER VOOR IEDEREEN 


AMSTERDAM, Koningsplein 12-14, tel. 020 - 27 0617. 

DEN HAAG, Lange Poten 19A, tel. 070 - 64 73 71. 

LEIDEN, Botermarkt 23, tel. 071 -1203 65. 

HILVERSUM, Groest 86-108 (Hilvertshof), tel. 035-40378. 
EMMEN, Wilhelminastr. 71, tel.05910-42122. 


Music Composer 

Settle Light software brengt 
een relatief goedkoop pro¬ 
gramma (minder dan 2 tientjes) 
voor wie wat aan muziek wil 
doen met zijn 64. Het biedt de 
gebruikelijke funkties van een 
muziekprogramma, zoals edit- 
ten, afspelen met of zonder no¬ 
tenbalk, keuze uit verschillen¬ 
de instrumenten en toonsoor¬ 
ten, een metronoomfunktie, la¬ 
den en saven. Ook is er stukje 
Basic- programma in de hand¬ 
leiding opgenomen, waarmee 
men de met dit programma ge¬ 
maakte muziek kan gebruiken 
in andere programma’s, om bv. 
een eigen spel wat geluid te 
geven. Het maken van de mu¬ 
ziek vereist wel enige kennis 
van van muziekschrift, het gaat 
nl. via een notenbalk. Daarop 
moet men dan met de joystick 
de noten plaatsen, maar dan 
moet u wel weten welke effec¬ 
ten er dan komen. Tenzij u juist 
door proberen en lusiteren zelf 
wilt ontdekken wat er gebeurt 
bij het plaatsen van een noot 
op een van de twee balken. De 
variaties bij dit programma zijn 
vrij groot, men kan echt editten 
weghalen, tussenvoegen, wer¬ 
ken met kruizen voor halve no¬ 
ten, de lengte per noot variëren 
etc. Wie voor weinig geld eens 
kennis wil maken met compu¬ 
termuziek, Settle Light heeft de 
oplossing (01150-13387). 

Infolist cassette 
no.5 

De nieuwe Infolist cassette no. 
V is zojuist verschenen. Op de¬ 
ze cassette (en diskette) staan 
de listings uit Commodore-lnfo 
nr.5 en nr. 6, met als extraatje 
het grote surfspel Surfmania 
’85. 

Zoals alle andere Infolist cas¬ 
settes is no. V te bestellen door 
ƒ 22,50 (diskette ƒ 27,50) over 
te maken naar postgiro 
3157656 t.n.v. Infolist te Arkel, 
met vermelding van het ge¬ 
wenste cassette- of diskette- 
nummer. 

Resultaten CBM 

Het gaat niet erg goed in de 
computerbusiness, dat lezen 
we tegenwoordig tamelijk veel 
in de kranten. Ook Commodo¬ 
re krijgt daarvan een tik mee en 


rekent in ons land met onge¬ 
veer de helft van het aantal 
verkochte computers voor dit 
jaar vergeleken met 1984. In 
Amerika bleek CBM ook al 
aangeslagen te zijn, men heeft 
voor het vierde kwartaal van 
het boekjaar een kleine 280 
miljoen verlies te verwerken, 
mede door afschrijving op 
voorraden met maar liefst 180 
miljoen. Maar men hoopt met 
de 128 en de Amiga weer hele¬ 
maal terug te komen, terwijl in 
Europa de PC-10 in verschil¬ 
lende landen de bestverkochte 
PC is geworden. Nog vóór 
Kerstmis gaat men in de VS 
ongeveer 70 miljoen gulden 
aan reclame voor de Amiga 
uitgeven en men bewerkt nu de 
dealers. 

PC FUZZ 

We zijn niet erg gelukkig met 
wat we aan software binnen¬ 
krijgen de laatste tijd, er is spra¬ 
ke van een soort creatieve ver¬ 
moeidheid. In Amerika en En¬ 
geland is men ook al op de 
vervolgtoer met bv. Summer 
Games II, Wintergames, Beach 
head II etc. In de categorie 
overbodig valt ook PC-FUZZ 
van Anirog, voor ƒ 29,50 kan 
men hierbij als politieman de 
misdaad te lijf. Men geringe 
middelen, namelijk zijn stok, 
kan de speler allerlei vijanden 
aan, maar delft meestal te 
vroeg het onderspit. 



Exprace 

Van Astona (01804-18919) is er 
een printer interface kabel van 
64 naar parallel Centronics met 
alle Commodore en BIM karak¬ 
ters, die in de winkel ƒ 129,- 
inkl. zal gaan kosten. • 
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Er is nogal wat nieuws de laatste maanden en vooral aan de bovenkant van het aanbod 
is er met de Amiga en de CBM 900 Unix machine heel wat aan het gebeuren. Voor wie 
denkt aan multi-user systemen in de normale kantooromgeving, maar daarbij terecht 
aan gebruiksvriendelijkheid en ergonomie hoge eisen stelt, kan met de 900 serie 
voorlopig uit de voeten. Met alle uitbreidingen is het vrijwel een kleine minicomputer. 


Commodore 900 

Ontwikkel- en gebruikssysteem voor 
zware toepassingen 



D e Commodore 900 business 
computer is de jongste telg in 
het grote Commodore gezin en 
ze zijn er met recht trots op. In 
wezen was men een jaar gele¬ 
den met de Z8000 al met dezelfde ma¬ 
chine op allerlei beurzen aan het de- 
monstrereren, maar nu is er dus een 
produktiemodel,’ dat dit najaar lever¬ 
baar wordt. 

De 900 is een machine die in de bovenste 
regionen van de business computers een 
geduchte concurrent is, zowel in prijs als 
prestatie. Als geavanceerd multi-user sy¬ 
steem, waarmee men zowel Cobol, Pascal 
als vooral C applicaties kan ontwikkelen, 
als die toepassingen ook kan draaien in 
bijvoorbeeld kantoor of ingenieursbureau, 
biedt de 900 alle mogelijkheden. 

Laten we eerst eens naar de prestaties 
kijken. De 900 draait onder een operating 
systeem, dat COHERENT heet en bijna 
volledig compatibel is met UNIX versie 5.2 
(de door AT&T nu als officiële Unix versie 
verkochte standaard) compatible is. De 
reden, waarom men niet direkt de ATT 
Unix aanbiedt, ligt in de prijs. De hoge 
royalties zouden de prijs van de 9000 met 
duizenden guldens opschroeven en men 
acht Coherent een afdoend alternatief. 

Unix aanbod groeit sterk 

Via dit OS kan men dus probleemloos alle 
software uit de multi-user UNIX markt toe¬ 
gankelijk nnaken. Juist onder Unix (en 
meestal in de programmeertaal C) gebeurt 
er enorm veel aan applikatie-ontwikkeling 
de laatste tijd, omdat AT&T en schoorvoe¬ 
tend ook IBM dit OS met hun enorme 
marketing kracht ondersteunen. Overi¬ 
gens is Unix minder een simpel in te laden 
OS, maar meer een kernprogramma dat 
met enorm veel Utilities werkt, en dan ook 
vrij veel (gauw 5 tot 15 MB aan harde schijf) 
geheugen nodig heeft. Toepassingen als 


de editor ED kun je daarbij als deel van 
Unix zien, of als aparte programma’s. 
COHERENT op de 900 geeft zo’n 8 gebrui¬ 
kers de kans hun informatie via het time¬ 
sharing systeem te verwerken en het doet 
dat zelfs sneller dan de standaard UNIX. 
De gebruikte Zilog 8000 processor is niet 
erg populair (behalve dan bij Zilog zelf en 
wat Japanse supermicro’s) en dat zou als 
nadeel kunnen worden gezien* Maar ge¬ 
lukkig is er een mogelijkheid, om toch 
objectcode te genereren voor andere pro- 
cessoren zoals de 8086/8088, de 80286, 
de 68000 en de Dec PDP-11 en daarmee is 
het voor de ontwikkelaar dus juist extra 
interessant geworden. Voorts is de Z 8000 
op het gebied van de real-time processing 
juist weer iets beter dan zijn concurrenten. 

Modellen 

De 900 is verkrijgbaar in twee configura¬ 
ties, die beiden de Z 8000 als centrale 
processor hebben, 512 tot 2 MB intern 
geheugen, en alle mogelijke interfaces en 
randapparatuur.: 

O De grafische CAD/CAM werkstation 
versie bestaat uit een UNIX compatibel 
werkstation met zeer grote grafische kwa¬ 
liteiten, mede dankzij een (monochroom) 
hi-resolutie display van 1024x800. De mo¬ 
gelijkheden die hiermee bereikt kunnen 
worden waren tot nu toe alleen te vinden 
bij machines die in prijs minstens 5x hoger 
lagen. Standaard is de 900 ook uitgerust 
met een in eigen huis ontworpen window 
manager, dat bediend wordt via een muis. 
Dit uiterst efficiënte systeem biedt een 
gebruikers vriendelijke aanpak, die volle¬ 
dig geïntegreerd is in het UNIX compatible 
gebruikersinterface. Er is het GKS Grap¬ 
hics Kemel Systeem en een VDI interface 
voor grafische randapparatuur. 


pp- 

0 De multi-user/terminal versie is een vol¬ 
wassen business computer die zowel 
groeiende als volwassen bedrijven een 
scala van mogelijkheden biedt. Het COHE¬ 
RENT operating systeem staat open voor 
multi-tasking en multi-user gebruik via 
maximaal 8 terminals, waarbij elke termi¬ 
nal over een eigen UNIX compatible werk¬ 
terrein beschikt. Dit is vooral te danken aan 
de hard disk, die met haar capaciteit van 
67 MB ruimschoots geheugen levert voor 
COHERENT, dat zo’n 10 a 15 MB aan 
geheugen nodig heeft en haar maximaal 8 
gebruikers. Een stevig systeem voor veel¬ 
eisende applicaties op administratief of 
technisch terrein. Er zijn Cobol, Pascal, C 
en Business-Basic compilers en iedere 
terminal heeft 128 KB beeldgeheugen. 


Prijs/prestatie concurrerend 

Prestatie wordt altijd gewaar¬ 
deerd, maar vaak door prijs over- 
schaduwd. In het geval van de 
C900 is daar geen sprake van, 
want Commodore’s nieuwste is 
vriendelijk geprijst. Indien men 
naar machines kijkt, die voor de 
gebruiker een equivalent aan mo¬ 
gelijkheden bieden, blijkt de prijs 
zeer concurrerend. Het heeft wei¬ 
nig zin hier een standaardprijs te 
noemen, juist voor dit soort syste¬ 
men is de keuze aan floppies, hard¬ 
disk, interfaces, terminals, intern 
geheugen en software zo complex, 
dat in iedere toepassing een ande¬ 
re prijs te voorschijn komt. 

L.S. 
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Contact maken met anderen is een van de belangrijkste functies die een computer 
voor zijn eigenaar tot stand kan brengen. Die communicatie is echter niet bedoeld voor 
iedereen en de gebruiker wil er zeker van zijn dan zijn berichten niet door onbevoegden 
worden gelezen of gebruikt. Dit probleem speelt natuurlijk nog niet zo voor de 
huiscomputergebruiker, maar voor de PC-DOS machines kan het vaak van groot 
belang zijn dat de informatie beschermd wordt. 



MS-DOS 


DATA-PRIVA 


Bescherming en beveiliging van gege¬ 
vens komt in allerlei toepassingen aan 
de orde, niet alleen militaire. Want ook 
bedrijfsgegevens zijn uitermate waar- 
devol, en wat te denken van de privacy 
van persoonlijke data. 

Nu begint beveiliging natuurlijk bij eenvou¬ 
dige maatrgelen zoals een slot op de mi¬ 
cro, goed wegsluiten van media zoals flop¬ 
pies en back-ups, een brandvrije en in- 
braakvrije data-kluis en een goede organi¬ 
satie op dit gebied, de mensen zijn vaak de 
zwakste schakel. 

Programma-beveiliging 

U kent vast wel de problemen rond de 
software-piraterij. Bedrijven zoeken zich 
suf naar manieren om hun software te 
beschermen tegen illegaal overnemen. Er 
zijn hele effectieve systemen, die soms 
zelfs met zgn. hardware sleutels werken. 
Uiteindelijk valt overal wel achter te ko¬ 
men, maar de gemiddelde gebruiker gaat 
echt geen maanden puzzelen om door een 
beveiliging heen te breken. En wie dat wel 
doet en daarmee ook zaken wil doen, komt 
al gauw met justitie in aanraking, dat lezen 
we haast iedere week in de krant. 
Programmabeveiliging is een zaak van de 
leverancier, gegevensbeveiliging hangt 
helemaal af van de gebruiker, die zorgvul¬ 
dig met zijn spullen moet omgaan. Ieder¬ 
een zal wel eens een file verloren hebben, 


waar geen back-up van was. Pijnlij 
leerzaam! Men maakt dan voortaan 
een extra kopie, en hopelijk wordt di 
goed weggesloten. \ \ 

Maar wanneer de oppervlakkige beveili¬ 
ging OK is, kan er behoefte komen aan 
beveiliging van de data zelf door bv. code¬ 
ring of versleuteling tijdens datatransmis¬ 
sie of zelfs opslag. 

Enigma 

Onder de titel ”P/C Privacy” is er nu een 
databeveiligings software pakket voor 
MS-DOS en dus bv. voor de PC-10 op de 
markt verschenen dat volgens kenners 
vrijwel onkraakbaar is. Dat is ook geen 
wonder, het is gebaseerd op de Duitse 
”Enigma”-code, die de Geallieerden tij¬ 
dens de Tweede Wereldoorlog nog bijna 
onoverkomelijke problemen opleverde, 
zelfs nadat zij de codeboeken in hun bezit 
hadden. Claims van "onkraakbaarheid” 
worden natuurlijk te pas en vooral te onpas 
gemaakt voor dergelijke programma’s 
maar P/C Privacy lijkt inderdaad een te 
harde noot voor de krakers. Bank of Ameri¬ 
ca test alle nieuwe beveiligingen en zij 
houden als standaardtijd om een code te 
breken 80 uur aan. Meestal hebben zij 
maar een fractie van die tijd nodig, maar in 
dit geval kwamen zij er helemaal niet door¬ 
heen, vandaar dat de bank het systeem 
zelf is gaan toepassen. 


Algorithme 

jet principe van P/C Privacy berust op een 
inschijnlijk eenvoudige verschuiving 
sns - wijziginjifcn de algorithmen - 
wad@ip% meer dan twintig miljoen combi¬ 
natiemogelijkheden onjtstaan. De code- 
sleutl karr+tenderd karakters bevatten en 
kan fp ieder' moment gewijzigd worden. 
De gewenste combinatie wordt gepro¬ 
grammeerd met behulp van het "Encrypt” 
gedeelte en weer ontcijferd met het ”De- 
crypt” programma. Als extra beveiliging 
moet nog een persoonlijk sleutelwoord 
worden toegevoegd. Bij het coderen van 
een bestand worden een groot aantal te¬ 
kens aan de bestaande toegevoegd, waar¬ 
door het breken van de code bijna onmo¬ 
gelijk wordt. Alleen wie over de juiste sleu¬ 
tel beschikt krijgt de originele tekst feilloos 
terug. 

Dit programma P/C privacy is geschikt voor MS- 
DOS machines zoals de PC-10 en CP/M 80 
machines zoals de C-128 en kost ƒ 755,- bij 
MCTEL, postbus 65 te Bergschenhoek, tel. 
01892-16716. • 
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Printer-Interfaces vormen nog steeds een onmisbare schakel tussen de CBM 64/VIC 
20 en de niet-Commodore printers. Omdat veel mensen de ruime keus in met name de 
Centronics parallel printers een zwaarwegend argument vinden, is er dus een ruime 
markt voor printer-interfaces. 


WW CBM/Centronics Interface 


De naam Interface Computer Enginee¬ 
ring, gevestigd in Halfweg (Haarlem- 
merstraatweg 111 en tel. 02907-3955) 
duidt al aan, dat dit bedrijf zich op dit 
gebied specialist acht. We probeerden 
hun produkt. 

De ellende met printer-interfaces is, dat er 
zoveel verschillende printers zijn, die erg 
veel verschillende instellingen kennen, dat 
je aan het uitproberen blijft. En in het geval 
van de C-64 interface van Interface CE, 
gaat de lijst van ondersteunde printers veel 
verder dan wat we aan printers binnen 
bereik hebben. We hebben het op Star, 
Epson en CP-80 uitgeprobeerd, maar ver¬ 
der moeten we dus een beetje afgaan op 
wat men zelf beweert. Gezien de instelmo¬ 
gelijkheden van dit interface hebben we 
echter weinig reden om te twijfelen. 

Instellen 

Want wat ons het meeste opvalt van dit 
interface is, naast de probleemloze wer¬ 
king ook met moeilijke gevallen als de 
grafische en Commodore-tekens, is de 
instelmogelijkheid. Wanneer men het kast¬ 
je van de 9000 serie interfaces open¬ 
maakt, ziet men daar een dipswitch (een 
miniatuur-schakelaarsetje) met 6 knopjes. 
Die kunnen ieder aan of uit worden gezet 
en op die manier kan men tenminste een 
veertigtal merken printers aan met dit in¬ 
terface. Met aankunnen bedoelt men dan 
meestal volledige compatibiliteit, dus bit- 


10 PRINT"TEST INTERFACE" 

20 PRINT"«0~-l l'-’U" 

30 PRINT" H■Fr—~4n n >1 I I L “ 
40 PRINT"CP-80 CENTR. PRINTER" 

READY. 


Voorbeeld met CT-80 printer 

map (via bv. Simon’s Basic), graphics, 
invers en vreemde tekens. Soms, zoals bij 
letterwielprinters, lukt dat uit de aard der 
zaak niet helemaal. Volledig compatibel en 
daar bedoelt men dan mee, dat de printer 


net zo reageert als de VC 1515/1525/801, 
al zal de kwaliteit van de meeste printers 
wel iets beter zijn en kan men meestal 
de eigen printerfuncties zoals doublé stri¬ 
ke en NLQ ook nog gebruiken voor perfec¬ 
te resultaten. 

Met de insteldipswitches zijn Epson, Bro- 
ther1009, BMC, MannesmannTally, SCM, 
Panasonic, Riteman, Star, Nee, Oki en Sei- 
kosha printers te gebruiken, en daarmee 
vrijwel ieder type. Er is zelfs een extra 
keuze mogelijk voor het devicenummer. 
De aansluiting gebeurt via de serie-bus 
(IEC) op de C-64 of VIC of achterop de 
diskdrive. De voedingsspanning, die nodig 
is om de speciale chips in de interface van 
stroom te voorzien, komt via een extra 
connector op de cassette-uitgang (die wel 
bruikbaar blijft). 

De handleiding, we kregen een engelse en 
duitse, is zeer uitgebreid, maar wat erg 
klein afgedrukt. Alles is er in te vinden, 
maar men moet wel goed thuis zijn in de 
gebruikte talen. 


Ons enige commentaar geldt eigenlijk 
de prijs van dit interface. Voor ƒ 279 
inkl. BTW. moet men goed overwegen, of 
de extra keuzevrijheid door de parallele 
connector dit geld wel waard is. Het is niet 
goedkoop, vinden we, zelfs niet als we 
bedenken dat uw interface-problemen 
hiermee vrijwel altijd zijn opgelost. Er zijn 
overigens ook iets goedkopere types van 
dit bedrijf, maar we denken, dat juist het 
type met grafische mogelijkheden, de 
92000 G, voor de Commodore-bezitter het 
meest aantrekkelijk is. 

Dubbele printer 

Een andere probleemoplosser, tegen een 
prijs van 590 gulden inkl. BTW. is de 2C/C/ 
00 interface, waarmee TWEE computers 
van dezelfde printer gebruik kunnen ma¬ 
ken. Wie het eerst komt, het eerst print, dat 
wel. Ook de omgekeerde situatie, met een 
computer twee printers aansturen, is mo¬ 
gelijk met weer een andere interface, de C/ 
2C/00 voor 890 gulden, eventueel uit te 
breiden met 2 x 32 KB buffer. • 
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Vanuit New York bericht Maureen Fleming, die aanwezig was op de grandioze 
presentatie van wat Commodore als de grote troef voor de komende jaren in handen 
heeft: 


AMIGA 

Super werkplaats voor professionals 



Commodore’s sprong 
naar de toekomst 


C ommodore International intro¬ 
duceerde op 23 juli in het Lincoln 
Center in New-York met een 
grootse show haar langver¬ 
wachte AMIGA. Hieronder een 
direkt verslag over wat deze machine 
voor Commodore en de gebruikers kan 
gaan betekenen. En wat voor een ma¬ 
chine, dit is toch wel heel erg fraai. 
Gezien de schitterende geluids- en gra¬ 
fische effecten, die op de opening met 
een batterij Amiga’s werden afgevuurd, 
leek het haast een videospel-machine. 
Terwijl de Amiga toch wel degelijk zeer 
serieus bedoeld is en gedachten aan 
videospelletjes gezien het prijskaartje 
van toch wel bijna 7000 gulden alleen bij 
de gefortuneerde spelers onder ons 
mogen opkomen. 

De introductie draaide om het thema ”De 
creatieve voorsprong voor de professio¬ 
nal”, waarmee de Amiga zich dus direkt 
naast de Apple Macintosh opstelt in een 
poging om de markt van creatieve en 
zelfstandige bureauwerkers te bereiken. 


Creatief en professioneel 


Een klassieke aanpak dus, maak van je 
produkt een ideaal, het ding dat iedereen 
zou moeten hebben om mee te kunnen. En 
die boodschap werd in New York groots 
uitgedragen, al is het effect ervan voor¬ 
shands in de media duidelijk minder dan 
wat we zagen bij de Macintosh introductie 


in januari 1984. Daar haalde men de voor¬ 
pagina en sprak iedereen over de TV com¬ 
mercial van Apple. Er ging vanwege de 
Amiga (nog) geen siddering door de com¬ 
puterwereld, misschien was men al te zeer 
aangeslagen door de vele slechte berich¬ 
ten uit de microcomputerwereld van de 
laatste maanden of was de timing, midden 
in de zomer, niet zo gelukkig. De introduc¬ 
tie was net een paar dagen na de NCC, een 
grote computerbeurs en de meeste jour¬ 
nalisten hadden dus waarschijnlijk nieuws 
genoeg. 

Ook IBM compatibel 

Een van de verrassingen was, dat de Ami¬ 
ga al heel snel ook de beschikking krijgt 
over een IBM/MS-DOS emulatie ofwel ook 
PC software zal kunnen gebruiken. Dat is 
heel belangrijk voor bedrijven, die min of 
meer gestandaardiseerd zijn op MS-DOS 
micro’s en eigenlijk alleen maar machines 
willen aanschaffen, die daar min of meer 
compatibel mee zijn. De Amiga is in eerste 
instantie bedoeld voor single-user gebruik, 
dus individueel computeren en meer doen 
met beelden, grafieken en data dan zeg 


maar voor de pure administratie nodig is. 
Maar zo’n MS-DOS brug naar de andere 
computers is natuurlijk mooi meegeno¬ 
men. Gelukkig maakt CBM voorlopig niet 
de fout van Apple, die dacht ook IBM te 
kunnen beconcurreren op de veelbeloven¬ 
de "grote bedrijven” markt en daarmee 
eigenlijk in het zakelijke kantoorzand beet. 
Commodore zal zeker ook wel Amiga’s 
aan de kantoren slijten, maar dan als extra, 
niet als vervanging van de standaard (IBM) 
PC’s. En zeker in Europa, waar men zelf de 
PC 10 en PC 20 in dat segment heeft, is dat 
ook niet nodig. 

In wezen heeft de Apple Macintosh het 
meest te duchten van de Amiga, die voor 
minder geld qua hardware en prestaties 
veel meer biedt. De Mac heeft op dit 
moment een veel breder software-aanbod, 
maar daar wordt aan gewerkt. 

Specificaties 

De Amiga, werkt op basis van de 68000 
microprocessor van Motorola, heeft in de 
standaarduitvoering 256 KB aan vrije RAM 
met een zeer gemakkelijke uitbreiding tot 
512 KB, werkt met 3.5 inch microfloppies 
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en heeft een muis. Er zijn standaard inter¬ 
faces voor parallel printer, seriële RS 232, 
extra diskdrive interface, een speciaal 
RGB/video digitizer interface, twee spea¬ 
ker uitgangen en monitor en RF (TV) uit¬ 
gang, twee muis/joystick interfaces en een 
expansiebus voor max. 8 MegaByte RAM 
geheugen, Hard disk en andere periferie. 
De basiseenheid kost in de VS nu 1,295 
dollar, hetgeen met een speciale Amiga 
kleurenmonitor 1800 dollar (ongeveer 
6500 gulden) wordt. Er komen uitbreidin¬ 
gen zoals een 20-Megabyte hard disk van 
Tecmar voor 1000 dollar. Commodore ver¬ 
wacht de eerste leveringen eind septem¬ 
ber in de VS en verwacht er vóór 1986 nog 
een 150.000 van af te zetten. 


The DREAM machine 


De Amiga is een revolutie op het gebied 
van de beeld en geluids- processing. Het 
model is meer dan 2 jaar in ontwikkeling 
geweest en na de overname van de Amiga 
Corporation door Commodore (toen er 
eigenlijk al een werkend systeem was) is 
men nog zeer intensief doorgegaan met 
verdere verbeteringen binnen wat wel als 
een aparte Amiga divisie van CBM be¬ 
schouwd kan worden. 

Software 

Zoals altijd moet de software gaan bewij¬ 
zen, dat de Amiga een serieuze zaak is, 
waar ook voor de toekomst op te bouwen 
is. De hardware is vrijwel perfect, de speci¬ 
ficaties zijn zo goed, dat het daaraan vrij¬ 
wel zeker niet zal liggen. Tenzij Apple of 
IBM snel met een nieuwe supermicro ko¬ 
men, heeft de Amiga qua hardware de 
beste papieren voor de tweede helft van 
de jaren tachtig. 

Het operating system is niet afgeleid van 
een bestaand systeem, het is zelf ontwik¬ 
keld voor Commodore door een Brits be¬ 
drijf Metacomco. Het is multi-tasking, wat 
wil zeggen, dat meerdere toepassingen 
tegelijk kunnen draaien en er bijvoorbeeld 
tekstbewerking gedaan kan worden (op de 
voorgrond), terwijl tegelijkertijd een data¬ 
base toepassing op de achtergrond aan 
het sorteren is. 

Metacomco, is een Engels bedrijf met een 
vestiging in Monterey, Californië. Het OS 
wordt geladen in een speciaal RAM achtig 
deel van het geheugen, dat niet van de 
gewone RAM ruimte afgaat. 

Qua toepassingssoftware zijn er toezeg¬ 
gingen van diverse grote softwarehuizen 
en al een een hele lijst van pakketten. Bij de 
machine wordt oa. een Tutor programma 
geleverd om ermee te leren omgaan. 



Er zijn op dit moment al veel programmeertalen, Utilities, spelletjes en toepas- 
singprogramma’s aangekondigd, die deels onder het Amiga label worden 
uitgebracht. 


Programma 

Soort 

Ontwerp 

label 

CalCraft 

Spreadsheet 

Synapse 

Amiga 

Enable-Write 

Word Processor 

The Software Group 

Amiga 

Textcraft 

Word Processor 

Arktronics 

Amiga 

The Amiga Eye 

Video Digitizer 

A-Squared Systems 

Amiga 

Rags to Riches 

General Ledger 

Chang Labs 

Amiga 

Rags to Riches 

Accounts Payable 

Chang Labs 

Amiga 

Rags to Riches 

Receivables 

Chang Labs 

Amiga 

Harmony 

Music 

Cherry Lane Tech 

Amiga 

7 Cities of Gold 

Education 

Electronic Arts 

Electronic 

Arts 

Dr. J & Larry Bird 

Game 

Electronic Arts 

Electronic 

Arts 

Zork 1 

Game 

Infocom 

Infocom 

Zork II 

Game 

Infocom 

Infocom 

Zork III 

Game 

Infocom 

Infocom 

Enchanter 

Game 

Infocom 

Infocom 

Sorcerer 

Game 

Infocom 

Infocom 

Suspect 

Game 

Infocom 

Infocom 

The Witness 

Game 

Infocom 

Infocom 

Cutthroats 

Game 

Infocom 

Infocom 

Deadline 

Game 

Infocom 

Infocom 

Seastalker 

Game 

Infocom 

Infocom 

Infidel 

Game 

Infocom 

Infocom 

Planetfall 

Game 

Infocom 

Infocom 

Suspended 

Game 

Infocom 

Infocom 

Starcross 

Game 

Infocom 

Infocom 

Invisiclues 

Game 

Infocom 

Infocom 

Hitchhiker’s Guide 

Game 

Infocom 

Infocom 

Deja Vu 

Game 

Mindscape 

Mindscape 

Graphicraft 

Graphics 

Island Graphics 

Amiga 

Presentationcraft 

Graphics 

Island Graphics 

Amiga 

Moviecraft 

Animation 

Island Graphics 

Amiga 

Lattice C Compiler 

Language 

Lattice, Ine. 

Amiga 

Lattice C CrossCompiler 
MS/DOS 

Language 

Lattice, Ine. 

Amiga 

Lattice C CrossCompiler 
Unix 

Language 

Lattice, Inc.Amiga 


Lattice C CrossCompiler 
VAX 

Language 

Lattice, Inc.Amiga 


LMK 

Language 

Lattice, Ine. 

Amiga 

LSE (Screen Editor) 

Language 

Lattice, Ine. 

Amiga 

TMN (Text Manager) 

Language 

Lattice, Ine. 

Amiga 

Logo for the Amiga 

Language 

The Lisp Co. 

Amiga 

Amiga Assembler Linker 

Language 

Metacomco 

Amiga 

Cambridge LISP 68K 

Language 

Metacomco 

Amiga 

MCC Pascal 68000 

Language 

Metacomco 

Amiga 

Metacomco BASIC 

Language 

Metacomco 

Amiga 

ABasic 

Language 

Microsoft 

Amiga 
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Wat iedereen verbaasde, was de mogelijk¬ 
heid om als extra een pakket te kopen, 
waarmee de Amiga ook PC software kan 
draaien. Die software komt ook in septem¬ 
ber op de markt en is gemaakt door SIMI- 
LE Research (uit Centerport, New York in 
de VS). Het gaat slechts 100 dollar kosten 
en dan kan men zowel 5,25 als 3,5 inch 
MS-DOS floppies gebruiken, terwijl het 
Kickstart OS van de Amiga ter beschikking 
blijft. Simile gaf wel aan, dat er enig snel- 
heidverlies zal optreden, tot wel 50% toe, 
waarvoor dan weer een extra 100 dollar 
een versneller-kaart beschikbaar komt. De 
emulator, zal ongeveer 50 tot 60KB RAM 
gebruiken en het leuke is, dat Apple dit 
produkt voor de 68000 niet wilde hebben. 
Voor software ontwikkelaars is er een Ont- 
werpers-Kit, die 1500 dollar kost. 


Amiga’s Pluspunten : 

O Krachtige color graphics, 
animatie en geluid 
0 Multitasking 
0 Snelle processor en data 
access 
O Windowing 
0 Ikoon interface 
0 Spraak synthese ingebouwd 
©Video-synch voor Genlock 
interfacing 

0 Groot RAM potentieel 
0 Flexibel uit te breiden 
© MS-DOS compatibiliteit 
0 Relatief lage prijs 


Graphics 

De grote kracht van de Amiga zijn de 
grafische hoogstandjes. Met 640x400 
pixels in 16 kleuren (plus allerlei andere 
variaties aan beeldvulling) en 8 multicolor 
sprites is er heel wat te doen, zeker met de 
hulp van het Operating Systeem, dat snel 
wisselen van applicatie en uitwisselen van 
beelden uit en naar RAM toelaat. 

Er zitten drie speciale chips in de Amiga : 
de Portia (geluid en l/O), Daphne (video), 
en Agnes (memory access, ook animatie 
en graphics). Dit drietal, ook wel als de 
Amiga-chipset aangeduid, herbergt de 
ware kracht van het systeem, omdat hier¬ 
mee speciale deeltaken worden uitge¬ 
voerd, die de hoofdprocessor, de 68000, 
ontlasten. Dus het opbouwen van video¬ 
schermen, het schuiven tussen voor- en 
achtergrond en de l/O handling met inter- 
rupts gaat veel sneller dan bij veel ander 
68000 machines, zoals bv. de MAC. Com¬ 
modore zelf zegt, dat de Amiga 3 x sneller 
is dan de MAC, maar dat hebben we nog 
niet kunnen controleren. 



De muis is het ideale middel om de menu- en ikooncommando’s te geven en grafische beeldacties 
uit te voeren. 


Specificaties : 


Type: 

Processor/klok: 
Extra Processors: 
Geheugen: 
Read-Only Memory: 
Flexible Disk Opslag: 

Harde Disk Opslag: 
Tape Backup: 
Expansie: 


Workstation/Supermicro 
Motorola 68000/8M Hz 
Speciale chips-set 
(minimum/maximum) 256 KBytes - 8.5Mbytes 

192 KBytes 
880 KBytes, 3.5-inch disk 
maximaal 3 externe drives 
20 M Bytes Tecmar 
20 M Bytes extern van Tecmar 
Volledige 68000 external bus 
256Kbyte RAM kaart sleuf 


Connectors: NTSC (composite video); digitale RGB; analoge RGB; seriële 
printer poort; serieel RS 232; externe disk drive poort; 2 analoge 
controller poorts (joystick/muis); 2 Stereo Audio pluggen. 
Keyboard: 89 toetsen; 10 functie toetsen; help toets; separate cursor toetsen; 
numeriek pad; zwenkbaar. 

Input Device: 2-knops mechanische muis. 

Tekst Resolutie: 25x80 of 25x60 (low resTV mode) 

Graphics Resolutie (pixels): 


Low-Resolution mode 320x200; 320x400 
High-Res 620x200/640x400 (interlaced) 
Hold and Modify mode met 6 -bit planes 

Maximum aantal kleuren: 


Low resolution —32 per horizontale beeldlijn 
High resolution—16 per horizontale beeldlijn 
Totaal aantal kleuren: 4096 

Gewicht Systeem Eenheid: 6 Kg 

Operating System: Amiga DOS, in wezen 2-level operating system: Amiga DOS 
en Intuition (MAC-type user interface. 

Meegeleverde Software: Amiga DOS, ABasic op disk, Amazing (spraak), 

SpeechCraft (speech-to-text pakket), Amiga Tutor 


Garantie: 90 dagen 

Prijzen randapparatuur : 

Amiga 1010 externe 3.5-inch drive $295 

Amiga 1020 externe 5.25-inch drive $395 

256 KByte RAM upgrade $195 

Amiga Muzikaal toetsenbord $99 
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Voorbeelden van de beeldkwaliteit van de Amiga bij toepassingen als ontwerpen en business 
graphics. 


Toch is het resultaat nog niet echt verge¬ 
lijkbaar met wat we van CAD/CAM machi¬ 
nes kennen, de plaatjes en vooral de cur- 
ves blijven nog iets blokkerig. Beter dan 
wat we van de MAC of enig andere PC- 
achtige kennen, maar nog niet het absolu¬ 
te einde. We hebben al gehoord, dat er nog 
speciale Amiga’s aankomen, die op dit 
punt nog beter presteren. 

Cruciaal 

De Amiga wordt cruciaal voor Commodo- 
re’s toekomst. Nu de 64 over het hoogte¬ 
punt heen, en de 128 de hobbymarkt gaat 
bedienen, heeft Commodore een nieuw 
paradepaardje nodig, vooral in de VS. 
Commodore’s North American President 
Thomas Rattigan vertelde ons dat volgend 
jaar duidelijk zal worden hoezeer het be¬ 
drijf afhankelijk is van de Amiga. Maar 
Commodore heeft nog wat moeilijke tijden 
voor de boeg, en is in wezen afhankelijk 
van een opleving van de hobbymarkt dit 
najaar. Dan moet de 128 in honderddui¬ 
zenden geld in het laatje gaan brengen en 
kan de Amiga gaan aanlopen. Of we hier 
dan al kunnen spelen met deze droomma- 
chine, is de vraag. In Europa, waar de PC- 
10 op dit moment goed loopt, zal de Amiga 
waarschijnlijk wat later, begin 1986 den¬ 
ken we, worden uitgebracht. • 

M.F. 


Printers 


MPS801 ƒ499 

80 koloms, 50 cps, 7x6 matrix 

MPS802 ƒ999 

80 koloms, 80 cps, 8x8 matrix 

MPS803 ƒ 629 

80 koloms, 60 cps, 7x6 matrix 
BrotherMP1009 ƒ 699 

80 koloms, 50 cps, 9x9 matrix 
Brother HR5C ƒ499 

80 koloms, 30 cps, 9x9 matrix 
Brother HR10 ƒ1099 

letterwielpr, 13 cps, NIEUW!! 

STAR SG IOC ƒ1299 

80 kolom, 120 cps, NLQ, Commodore 
Interface 

STAR SG 15 ƒ1599 

132 koloms, 120 cps, NLQ 
Sanplé2000 ƒ 999 

letterwiel 18 cps, parall. 


MONITORS 


Slipstream met C64 kabel, 

80 kol, groen of amber ƒ399 

Philips TP200 ƒ 299 

groen met geluid 

Slipstream kleur ƒ 999 

met geluid, CBM kabel 

Commodore 1702 kleur ƒ 975 

Bel voor de 
laagste prijzen 

078-311516 


Diskettes per 10 
Private label SS/DD ƒ 45 

NashuaSS/DD ƒ49 

Fuji SS/DD ƒ 69 

Scotch SS/DD ƒ 79 

Diskette boxen v.a. ƒ 25 

Teletron 

1200 modem ƒ 598 

Prism 1000 modem ƒ 598 
kompleet met software! 

Slipstream cass.recorder 
De beste!! ƒ129 

Verder de bekende KCS en 
Weka uitbreidingsmodules en 
alle Data Becker boeken in 
voorraad. 

_alle prijzen incl BTW 


P(? 3UOP 


PERSONAL COMPUTERS 

Nieuwstraat 26, 3311 XR Dordrecht - ÏOO mtr vanaf V&D 
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Basic Min 


Een rubriek van Nico Baaijens me 


E r zit weer leuk en interessant spul bij in deze klein maar 
fijn rubriek, hoewel het me toch een beetje verbaast dat 
niemand heeft gereageerd op mijn oproep om meer 
met geluid te doen. Na de miniatuurtjes met kanon¬ 
schoten, vogelgefluit en explosies, die het in actiespel- 
letjes zo aardig doen, vroeg ik om een miniatuurtje dat de 
pingel van TROS of de STER imiteert. (Nog) geen reactie. 

Gewoontegetrouw begin ik deze rubriek met de Tien met de 
Griffel, als er tenminste een bij zit, die een dergelijke onderschei¬ 
ding verdient. Naar mijn gevoel is dat het simpele, maar zeer 
onderhoudende programmaatje voor de C64 van Marcel van der 
Linden (14) uit Lier. 

Test 

Marcel propt in drie regels een verdraaid aardig rekenspelletje, 
dat de speler uitdaagt om de rekenkundige ritmiek in drie 
gegeven (en random gegenereerde) getallen te zien en aan te 
vullen. Tegelijkertijd wordt de speler onder druk gezet, omdat 
na RUN de tijd gaat lopen. 

1 TI$ = ”000000”:X=INT(RND(1)* 10 + 1):A=INT 
(RND(1)* 10+1): PRINTX”/”X* A7”X* A* A7 ?” 

'2 INPUTP:IF P=X* A* A* A THEN PRINT”GOED IN ” 

;TI$;” SEC.”:RUN 

3 PRINTTOUT HET WAS ”;X* A* A* A:RUN 


Renew na new of reset 

Een Basic-programma in het geheugen van de C64 lijkt verlo¬ 
ren wanneer, per ongeluk of niet, het NEW-commando wordt 
gegeven of de resetknop wordt ingedrukt. Het staat echter 
nog steeds in het geheugen, alleen kan het niet meer geRUNd 
of geLIST worden. 

Ik kreeg twee tips om een geNEWd Basic-programma terug te 
krijgen. De eerste en meest betrouwbare is van Marcel Huit- 
sing uit Bedum: 

POKE2050,8:SYS42291:POKE46,PEEK(35)-PEEK(781) 

+2AND255:CLR:LIST 

Toegepast op lange en korte Basic-programma’s doet deze 
uitvoerige POKE exact hetzelfde als de zogenaamde Renew- 
programma’s, die voor de Commodore als Utilities in de han¬ 
del zijn. 


Scroll 

Marcel Huitsing liet zijn bruikbare POKE ook nog van een mini¬ 
atuurtje vergezeld gaan om regels naar links van het scherm te 
laten scrollen: 

10 PRINTCHR$(147) 

20 A$=”LEES COMMODORE INFO ” 

30 FORI = 1TOLEN(A$): PRINT”<CLR/HOME><4X 
CURSOR NAAR RECHTS>”MID$(A$,I,20):NEXT 
40 RUN 


Monitor 

Leer meer over het inwendige van de C64 en duik het geheu¬ 
gen eens in met een monitorprogramma. Een goed en veelzij¬ 
dig monitorprogramma is nogal aan de prijs, maar het kan (zij 
het wat minder veelzijdig) ook in een Miniatuurtje. Ron Wit¬ 
kamp uit Soest geeft een monitorprogramma voor C64, VIC20 
en Schneider CPC464, dat om een startadres en een einda- 
dres vraagt en vervolgens tussen die adressen de inhoud van 
de geheugenplaatsen in Hex op het scherm geeft. 

10 INPUrVAN ”;S:INPUT”T/M ”;E 

12 FORX=STOE:A=PEEK(X):GOSUB15 

13 IF X/8=INT(X/8) THEN PRINT: PRINTX;”- 

14 PRINTG$;:NEXTX:END 

15 B1=INT(A/(16)):R1=BH 16 

16 BI =B1 +48:IF B1>57 THEN B1-B1+7 

17 B2=(A-R1)+48:IF B2>57 THEN B2=B2+7 

18 G$=CHR$(B1)+CHR$(B2) + ” ”:RETURN 


Simon’s Basic 

Niet iedere C-gebruiker heeft Simon’s Basic. Het is een wel¬ 
kome aanvulling op de standaard Basic. Hieronder een minia¬ 
tuur in deze Simon’s Basic van Rudy Limmen uit Opmeer. 

1 PRINT”<SHIFT CLR/HOME>”:COLOURO,0:B=40: 

C=25 

2 FORA=0TO24:FILLA,A,B,C,A,A+1 

3 BFLASH10,6,7:FLASHINT(A/2),A 

4 B=B-1:C=C-1:NEXT 

5 FOR R=1T01000 

6 FOR T=1TO90: NEXTT: LEFTW5,5,15,15: 

UPW10,25,10,10: RIGHTW1,1,30,4: NEXT 

7 END 


Spiraal 

Een erg leuk miniatuurtje kreeg ik van iemand, wiens naam ik 
niet kan lezen (Ballers, Ballek of Balleis), maar wiens voorletter 
met een S begint. Gelukkig heeft deze Basic-miniaturist zijn 
programmaatje uitgeprint. Ik heb het voor het effect op het 
scherm een ietsje aangepast. Het maakt het scherm spiraals¬ 
gewijs schoon en herstelt het scherm vervolgens weer spi¬ 
raalsgewijs en geeft de listing terug. Prima werk overigens! 

10 A=32:B = 128 
15 FORQ=1T02 
20 A=A+B:C=1023:E=40 
25 F=1:G=40 
30 FORD=24TOOSTEP-1 
40 FORX=1TOE:C=C+F 
50 POKEG,A:NEXT 
60 FORX=1TOD:C=C+G 
70 POKEC,A:NEXT 
80 E=E-1:F=-F:G=-G:NEXT 
90 B=-B 
100 NEXTQ 
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Latuurtjes o o >jo 

orte tot zeer Korte programma’s. 


Adventure 

Het is heel goed te doen om in Basic een adventure te schrij¬ 
ven. Daarbij voert de speler tekst in en om dat netjes te laten 
verwerken schreven Jos de Klerk en Wim van der Meer een 
routine, waarmee werkwoord en zelfstandig naamwoord wor¬ 
den gescheiden. Het ingevoerde zinnetje: "SPRING DOOR 
HET RAAM” levert voor de verwerking alleen SPRING en 
RAAM op. 

130 AB$=””:A$=””:B$=””:A=0:S=0:DIMS(29) 

140 PRINT”WAT NU? *<CURSOR LINKS>"; 

150 GETC$:IF C$=”” THEN 150 
160 A=ASC(C$):IF A<>200RAB$=’”THEN190 
170 IF RIGHT$(AB$,1)=” ” THEN S=S-1:IF S=0 
THEN A$=”” 

180 AB$=LEFT$(AB$,LEN(AB$)-1): PRINT” <2X 
CURSOR LINKS>* <CURSOR LINKS>”;:GOTO150 
190 IF A—13 THEN PRINT” ”:GOTO240 
200 IF LEN(AB$)>28THEN150 
210 IF A=32 THEN S=S+1 :D(S)=LEN(AB$): 

GOTO230 

220 IF A<35ORA>90THEN150 
230 AB$=AB$+C$: PRINTC$”*<CURSOR LINKS>” 
;:GOTO150 

240 IF RIGHT$(AB$,1) = " ” THEN AB$=LEFT$(AB 
$,(LEN(AB$)-1)):S=S-1 :GOTO240 
250 IF S=0 THEN A$=AB$:B$=””:GOTO280 
260 A$=LEFT$(AB$ ,4): B$=RIG HT$(AB$, 

LE N (AB$) - D(S) -1) 

270 PRINT”WERKWOORD:”;A$: PRINT’ZELFST. 

NW.:”;B$:END 

280 PRINT”EENWOORDIG COMMANDO: ”;AB$ 


Hogere wiskunde? 

"Omdat ik zo'n hekel heb aan het uitrekenen van een parabool 
met een as, heb ik een kiloliner gemaakt", schrijft Leendert 
Huyzer uit Sliedrecht. Men moet eerst de vergelijking op nul 
herleiden en dan de ABC-formule toepassen. 

Voorbeeld: snijdt parabool de lijn y=1 ??? 

2x(kwadraat)-4x+5=1 
2x(k wad raat) -4x+4=0 

a=2 b=4 o=4. Uit de kiloliner blijkt dat er nul wortels zijn dus 
de parabool snijdt de lijn (of as) y—1 niet. 

Zou de computer als antwoord geven dat er 1 of 2 wortels zijn 
dan snijdt de parabool die lijn wel. 

Voorbeeld: Uitkomst 1 en 3. Gekeken of de parabool de lijn 
y=2 snijdt, dan zijn de snijpunten: (1,2) en (3,2). 

Wie het nu kan volgen en dus tamelijk goed in zijn middelbare 
school wiskunde moet maar eens wat experimenteren met de 
kiloliner: 

1 INPUT”GEEF A,B,G”;A,B,C:W=((B* B)-(4* A 
* C));IF W>0 THEN PRINT”2 WORTELS:” 

2 IF W=0 THEN PRINT’1 WORTEL:” 


3 IF W<0 THEN PRINT”0 WORTELS”:END 

4 XI =-B+SQR(W):X2=-B-SQR(W):X1 =X1/(2* A) 
:X2=X2/(2* A):IF XI =X2 THEN 7 

5 PRINT: PRINT’WORTEL 1:”X1” WORTEL 2:”X2 
:END 

7 PRINT”WORTEL 1:”X1 


Piano op C16 

Eindelijk ook eens een miniatuurtje voor de Cl 6. Bas Spijkho- 
ven uit Dordrecht maakte een piano onder de cijfertoetsen 1 
tot en met 8: 

10 FORA=1T08:READB(A):NEXTA 
15 VOL 7 
20 DO 

30 GET KEY C 

40 SOUND 1, B (C), 6 

50 DATA 596,643,685,704,739,770,798,810 

60 LOOP 


VIC 20 

Een meerkleurige border op de VIC20 geeft het miniatuurtje 
van Michiel van de Wijgaart uit Breda. Als het programmaatje 
is ingetoetst en gerund, gebeurt er niets. Pas als POKE 
37879,173 en SYS 673 wordt ingevoerd, verschijnt het effect. 

10 FORT=673T0673+34: READA: POKET.A: N EXT 
20 DATA88,120,169,174,141,20,3,169,2,141 
30 DATA21,3,96,160,24,162,0,140,15,144 
,232,224,255,208,248 

40 DATA200,192,31,208,241,76,191,234,0,0 • 

Tot de volgende keer. 

NB. 


Druk-misser 

In de listing van Kokos 2 is in een deel van 
de bladen een stukje drukwerk onlees¬ 
baar, nl. regel 972, waar RVS-uit) en dan de 
grafisch symbooltjes stonden. 
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SOFTWARE ★ SOFTWARE ★ SOFTWAR 


LANG of LANGDRADIG? 

Bij veel van de spelletjes, die we tegenwoordig zien, valt ons 
op, dat de tijd van het 30 KB of zelfs 58 KB spelletje vrijwel 
voorbij is. Daarmee bedoelen we, dat er haast geen program¬ 
ma’s meer zijn, die in één keer geladen kunnen worden. De 
huidige trend is er een van multi-load spelletjes, waarbij men 
na tafreel 1 opnieuw moet laden voor tafreel 2,3 enzovoorts. 
Dat lijkt aardig, maar vaak lijdt de kwaliteit onder de kwanti¬ 
teit en zijn de variaties, die men krijgt, eigenlijk niet de moeite 
van die lange laad-wachttijd waard. Zeker, wanneer de 
gebruikt anti-kopieer techniek ook bij de disk voor lange 
laadtijden zorgt. Bij een cassette is het soms een laadtijd van 
3 tot 5 minuten per tafreel en dat is veel te lang voor de 
doelgroep van de meeste spelletjes. 

Waar is de tijd van de amusante spelletjes, die wel binnen één 
geheugen ruimte pasten?? 


Tour de FRANCE 


Software-makers haken graag in op belangrijke gebeurtenis¬ 
sen zoals sportevenementen, dat weten we van ”Summer 
Games”. De actualiteit niet alleen op de televisie, maar ook op 
de computermonitor en daarom is het jammer, dat ACTIVISI- 
ON’s nieuwste spel eigenlijk te laat in de winkels kwam. Maar 
desondanks toch een bespreking waard. 



Activision net te laat met 
eindspurt 


Nog maar ternauwernood is de Tour De France afgelopen, of u 
kunt dit wielerspektakel opniew beleven. Dit keer niet onderuitge¬ 
zakt vanuit de luie stoel, maar actief op de fiets. U neemt het ook 
niet op tegen Hinault, Zoetermelk of Kelly maar tegen uw eigen 
familieleden. Met maximaal zes personen, die allen voor een land 
naar keuze uitkomen, fietst u door het Franse landschap, toege¬ 
wuifd en aangemoedigd door een enthousiaste menigte. Dat is 
geen vluggertje, voor iedere etappe bent u tussen de 10 en 20 
minuten bezig, afhankelijk van uw vaardigheid. 

De bedoeling van het spel zal duidelijk zijn, u dient de tour te 
winnen. U kunt echter ook een wedstrijd over een of meerdere 
etappes houden. Het klinkt allemaal wat makkelijker dan dat het in 
werkelijkheid is. In het begin zit u tamelijk snel in de berm. 
Gelukkig zit er dan ook een oefenmogelijkheid in het spel inge¬ 
bouwd. 

U kunt uw fietser met het toetsenbord, of de joystick besturen. 
D.m.v. de joystick links en rechts te sturen, eventueel in combina¬ 
tie met de actieknop, kunt u uw fietser laten trappen en sturen. U 
beschikt op uw fiets tevens over een versnelling. Deze kunt u naar 
hoog of laag omschakelen door de joystick naar voren of achteren 
te duwen. Verder zijn de keuzes qua rennercapaciteiten (klim/ 
sprint etc.) via kleurcodes ook nog te veranderen, kan men 
ploegsgewijs aan de gang en wordt de stand goed in beeld 
gebracht. Er rijdt wel steeds één renner en het is in het begin wel 
leuk om te kijken, want het moeilijke bewegingsmechanisme 
(trappen en sturen tegelijk, het is niet erg logisch) leidt tot 
tuimelingen. 

Het hele spel is een erg gecompliceerde zaak en 
omdat men ook nog eens per etappe een nieuw 
tafreel moet laden (zie onze opmerkingen hierbo¬ 
ven) is de koper voor zijn 49 gulden in ieder geval 
aardig wat tijd aan wachten kwijt. 

Ondanks het feit dat het spel grafisch en muzikaal een meester¬ 
werkje is, zijn er wel minpunten te bedenken. Mocht u bijvoor¬ 
beeld de berm ook maar even aantikken dan valt u direct om. Dit 
gaat soms behoorlijk iriteren. Verder is de hele duur van de Tour 
een kwestie van avonden lang doorspelen, het is wel erg langdra¬ 
dig na een paar etappes. Als de hele tour wat veel mocht zijn, dan 
kunt u het wielercircus wel tot één of meerdere etappe beperken. 
Echter, hoe klein de etappe die u kiest ook is, u komt niet onder 
een kwartier fietsen uit. De eindtabel maakt daarentegen een 
hoop van de doorstane beproevingen goed. Per speler worden de 
gereden tijden per etappe weergegeven. Met behulp van deze 
tabel zal het u dan ook niet moeilijk vallen om degene uit uw miden 
te kiezen die de avond in de gele trui mag doorbrengen. 

Een laatste punt, bij het door ons geteste exemplaar 
kon men zich, vooral bij schermovergangen (de scrol- 
ling is niet helemaal vloeiend) in een dode hoek 
fietsen. Daar was met geen mogelijkheid uit te komen 
en men moet dan dus de etappe afbreken en daarmee 
ook klassement etc. door de war gooien. Een bug, die 
niet nodig geweest was en duidt op haastwerk. 

Eind conclusie : Langdradig, maar schitterend spel, 
dat na veel oefenen voor de echte liefhebber van 
computers én wielrennen erg veel variaties en keuzes 
bevat, men kan hier helemaal verslaafd aan raken. 
Voor wie even 10 minuten aan de gang wil, echter 
door lange laadtijden en complexe principes niet 
direkt te begrijpen. • 
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HULPROUTINES 


Utilities-rubriek 


Bij het gebruik van de computer loopt iedere 
gebruiker wel eens op tegen bewerkingen, 
die vaker voorkomen, maar op een ingewik- 
I kelde of onhandige manier moeten worden 
uitgevoerd. Als voorbeeld is de directory 
listing bij de 64 via LOAD ”$”,8 en dan LIST 
{ heel duidelijk, dat is bepaald ingewikkeldel- 

I der dan alleen DIR typen. Er zijn door vele 
programmeurs voor zichzicf of voor com¬ 
mercieel gebruik vaak korte routines of 
stukje programma in Basic of machinetaal 
ontwikkeld, die zo’n bewerking sneller en 
handiger maken. We kennen natuurlijk de 
TOOLKIT’s, al of niet in modulevorm, waarin 
vele van die zgn. UTILITIES zijn gecombi¬ 
neerd. Maar ook los heeft iedere program- 
meeur wel een paar van die dingen bij de 
hand, om het programmeren of het hanteren 
van schijf en tape wat gemakkelijker te 
maken. 

We gaan voortaan dergelijke routines samenbrengen 
in een aparte rubriek van Commodore-lnfo. Dat is 
gemakkelijker voor wie er interesse voor heeft en 
vooral handiger, als de lezer die Utilities bijvoorbeeld 
wil kopiëren (op papier bedoelen we) om altijd bij de 
hand naast de machine te hebben. Gelukkig bleken er 
ook bij de prijsvraag heel wat leuke Utilities te zitten en 
hebben we via de echte HULPENIERS als Leon van der 
Torre, Wim Wubs en Ton Lecluse, van wie we al vele 
kleine hulpprogramma’s hebben geplaatst, al een start- 
voorraad. 


Nog een waarschuwing vooraf, de Utilities hierna zijn 
vaak niet helemaal perfect, de schermboodschappen 
bijvoorbeeld zouden vaak wat duidelijker kunnen, 
soms is het alleen cassette of juist disk-georiënteerd, 
de fraaie REM’s met naam etc. aan het begin kunnen er 
meestal wel uit of worden vervangen door wat meer 
uitleg, kortom dit is ruw basismateriaal, dat zelf aange¬ 
past kan en soms moet worden. Helaas nog geen VIC of 
C-16 Utilities, wie heeft een leuke? 


Basic-extender 


Leon van der Torre uit Zevenhuizen is degene, die ons een hele 
serie hulpprogramma’s voor de standaard C-64-Basic stuurde, 
die in dit en het vorige nummer verschenen. 

Dit programma zorgt dat je door het intypen van een links pijltje L 
gevolgd door een komma en een getal, de border van het i 
scherm alle gewenste kleuren kunt geven. Je kunt dit zowel in | 
direct- als in programma mode gebruiken. Een keer runnen en 
het kommando blijft actief, zolang het niet wordt overschreven 
door andere machinetaal. In je eigen Basic-programma’s kun je 
het dus zonder meer gebruiken. 


1 rem basic-extender/commodore-64 

2 rem door leon van der torre 

3 rem zevenhuizen 01802-1624 

4 rem 
10 s — 0 

20 -f or x =53200t o53232 : reada s pok ex , a : s = s 
+a:next 

30 i-f s< >3269thenpr int " C CLR-HOME 3-f out i 
n data ! " :end 
40 rem voorbeeld border 
50 s — 0 

70 -f or x =49 1 52t 0491 6 1 : r eada : pokex , a s s = s I 
+ a:nex t 

80 i-f s< > 1 3 1 ©thenpr i nt " C CLR-HOME 1 f out i [ 
n data !":end 
90 sys53200 


91 

inp uta 

: sys49152 

, a 



92 

input a 

S * 9 

a 




100 

data 169 

> 219 

, 141 , 

8 , 

3 

101 

data 169 

, 207 

, 141 , 

9 , 

3 

102 

data 96 , 

32 , 

115, 0 

, 201 

103 

data 95 , 

240 , 

6 , 32 

, 121 

104 

data 0 

9 

76 , 231 , 167 , 

32 

105 

data 115 

, 0 , 

32 , 0 

, 192 

106 

data 76 , 

174 , 

167 



1 10 

data 32 , 

253 , 

174 , 

32 , 

158 

1 1 1 

data 183 

, 142 

, 32 , 

208 

, 96 


regel 

1 

232 

regel 

91 

16 


regel 

2 

61 

regel 

92 

204 


regel 

3 

223 

regel 

100 

112 


regel 

4 

143 

regel 

101 

1 10 


regel 

10 

53 

regel 

102 

97 


regel 

20 

249 

regel 

103 

102 


regel 

30 

247 

regel 

104 

105 


regel 

40 

239 

regel 

105 

43 


regel 

50 

53 

regel 

106 

1 30 


regel 

70 

10 

regel 

110 

209 


regel 

80 

232 

regel 

1 1 1 

212 


regel 

90 

152 





Direetor; 


Dit is bijna een standaard hulpje, dir van Wim Wubs laadt de 
directory in zonder het programma uit geheugen te wissen. 


0 rem directory + bleeks free 

1 open 1,8,0,iget#l,a*,a* 

2 get#l, a», a* i i-f a*=" "thencl osel i end 

3 get#l,at,b*iprintasc <at+chrt(0))+25 
6#asc (b*+chr*<0) ); 

4 get#l,a$s ifa$=“ 11 thenprint!goto2 

5 printa*; s goto4 
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Unnew 


Je hebt allemaal weleens een programma ingetoets, 
waarna je, zonder dat je het wilde, via ’NEW’ alles bent 
kwijtgeraakt. Door dit programma te gebruiken, kan dat 
niet meer voorkomen, want een simpele opdracht 
(sys49152) en je hebt je hele Basic-listing weer terug in 
RAM. Zelfs na het resetten van de computer blijft dit 
programma aktief. 

Je moet wel zorgen, dat deze unnew-subroutine vooraf is 
geladen en gerund. 


1 rem unnew / commodore-64 

2 rem door 1eon van der torre 

3 rem zevenhuizen / 01802-1624 

4 rem 

10 S = 0 

20 f or x = 49152to49177 : reada: pokex , a: s = s 
+ a:nex t 

30 i-f s< >2565thenprint" C CLR-HOME 1-f out i 
n data !":end 

40 print" CCLR-HOMElgee-f na een hard re 
set ’ sys 49152’, en u heeft uw basic j 
prg weer terug." 

100 data 160 , 1 , 169 , 255 , 145 

101 data 43 , 32 , 51 , 165 , 216 

102 data 24 , 165 , 34 , 105 , 2 

103 data 133 , 45 , 165 , 35 , 105 

104 data 0 , 133 , 46 , 76 , 94 

105 data 166 , 0 , 0 , 0 , 0 



ATARI-IBM-APPLE-SONY 
CASIO-PANASONIC-WANG 
SINCLAIR-BROTHER-BBC 
SPECTRAVIDEO-DIGITAL 
SHARP- TANDY-AVT 
COMMODORE 


regel 

1 

135 

regel 

101 

1 54 

regel 

2 

61 

regel 

102 

100 

regel 

3 

14 

regel 

103 

205 

regel 

4 

143 

regel 

104 

62 

regel 

10 

53 

regel 

105 

144 

regel 

20 

17 




regel 

30 

245 




regel 

40 

65 

ready. 



regel 

1 00 

209 





Print at 


Met deze utility kun je door het intypen van ’sys 
49152,regel,kolom,te printen tekst’ op iedere gewenste 
positie op je scherm je strings printen. Helaas is het niel 
direki te gebruiken voor het printen van variabelen. Maar 
daar is een truuk voor, door als tekst een spatie in te 
geven. Daardoor gaat de cursor naar de plek waar je hem 
hebben wilt. Een goede hulp, die bij de meeste Basic- 
versies (MSX b.v.) behoort tot de standaard com¬ 
mando’s. 


1 nm print at / commodore-64 

2 rem door 1eon van der torre 

3 rem zevenhuizen / 01802-1624 

4 rem 

10 S = 0 

20 forx“49152to49179ireada:pokex,a:s*s 
+ a:n ex t 

30 i-f s< >3838thenpr int " CCLR-HOMEl f out i 
n data ! " :end 

40 rem voorbeeld 

50 print" [CLR-HOMEl":-forx=0to20:sys491 
5 2,x,x, "commodore-info":next 

60 rem vorm :’sys49152,x—coordinaat,y— 
coördinaat,tekst’ 


100 

data 

32 , 

253 , 

174 , 32 

, 158 

101 

data 

183 

, 142 

, 28 , 192 , 

32 

1 02 

data 

253 

, 174 

, 32 , 158 , 

183 

103 

data 

172 

, 28 , 

192 , 24 

, 32 

104 

data 

240 

, 255 

, 32 , 253 , 

174 

105 

data 

76 , 

164 , 

170 , 0 , 

. 0 



pr i n t 

at 


regel 

50 

122 





r ege 1 

60 

65 





regel 

100 

209 


regel 

1 

28 

regel 

101 

209 


regel 

2 

61 

regel 

102 

8 


regel 

3 

1 4 

regel 

103 

158 


regel 

4 

143 

regel 

104 

0 


regel 

10 

53 

regel 

105 

51 


regel 

20 

19 





regel 

30 

249 





regel 

40 

49 

ready. 




HANDY-KAP 

COVERS EN TABLEAUS 

inlichtingen: 010-738001 
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r 


Karaktergenerator 


Ontwerp je eigen letterset en save hem op tape instructies. Na 
het inladen wel even wachten, door Marcel de Groot uit Hil- 
legom. 


ml 


s ‘ar 


1 rem karaktergenerator / cbm-64 

2 rem door marcel de groot 

3 rem uit hillegom 

4 rem 

10 poke52,56:poke56,56:clr:poke56334,peek 
(56334)and254:pokel,peek(1)and25t 
20 x«l:y=l:1 *="a" :print"even geduld..." 

30 -fora = 0to2047:pokel4336 + a, peek (53248 
+a):nextipokelppeek(1)or4 
40 poke56334,peek(56334)or1:poke53272, 
30:poke53280,0 

50 poke5328 1,0iprintchr*(8> ; chr* ( 14) ;" 
CGROEN3CCLR-HOME3 " i -f or a= 11oB: k (a) =2 
?(8-a):next:i=1704 

60 print"[HOME!"sprintspc(15)"[GEEL 3 CRVS- 
aan 3aCRVS-uit3 = andere 1e11erCneer 3" 
:printspc(15)"CRVS-aan 1 + CRVS-uit3 = 
punt biitneer 3" 

70 printspc<15)"CRVS-aan3-CRVS-uit1 = 

punt a-fCneer3":printspc (15) "CRVS-aan3 
rtRVS-uitl = letter reversedtneer3" 

80 printspc ( 15)"CGEEL 3 CRVS-aan3sCRVS-uit3 
«= saventneerl" 

90 printspc(15)"huidige letter: CWIT3" 

) 1* 

100 print"C3xneer 3C1.rood3aangepaste le 
tters: " :gosub26@ 

110 print " C4xneer 3C1.groen 3 beweeg met c 
ursor-toetsen en clr/home" 

120 g=1023+y*40+x:gp=peek(g):pokeg,gpand 
128or42:pokel98,0:waitl98,1:geta* 

130 pokeg,gp: i -f a*= "r " thenl *=" CRVS-aan 3 " 
+l*:print"C6xop3CGEEL3":gotaB0 
140 i-fa$="Erechts3"andx<8thenx=x + l 
150 i-fa*="Eneer3"andy<8theny = y+l 
160 i-fa$="Cl inks3"andx>lthenx=x-l 
170 i-f a$= " top 3 "andy > 1 theny = y-l 
180 i-f a* = " CCLR-H0ME3 "ora*=" [HOME 3 "thenx 
=1iy=1 

190 i-f a*="s"then300 

200 gp=peek(g):h=14336+8*1+y-1:ifa*-"+" 
thenpoksh,peek(h)ork(x)ipokeg,160 
210 i-fa*="-"thenpokeh,peek (h)andnotk (x) 

:pokeg,46 

220 ifa*<>"a"thenl2« 

230 print “ (neer 3[CYflflN3toets de nieuwe 

letter in:";s poke198,0:poke204,0:walt 
198,1 

240 getl*xpoke204, 1:print 1*ipokel495,peek 
(1650)ipokel,1ii=i+1 
250 print "Cop3C27xspatie3":goto60 


260 1 =peek (1495) i pr int " CHOME 3 CWIT 3 " «-f or 
a = 0to7:-forb = ltoB 

270 d=peek(14336+8*1+a)andk(b)iifd=k(b) 

thenprint "CRVS-aan3 CRVS-uit3"»:goto 
290 

280 print"."; 

290 next:print:next:return 
300 data 169, 1, 162, 1, 160,255,32, 1B6,255, 
169,11,162,203,160,2,32 
310 data 189,255, 169,0, 162,56, 133,251,13 
4,252,169,251,162,0,160,64 
320 data32,216,255,96,75,65,82,65,75,84 
,69,82,83,69,B4,0 

330 restore:print"CCLR-H0ME3 CGEELlwi11 
u de karakters echt af saven (j/n) ? 

340 fora=0to47ireadb:poke679+a,b:next 
350 get a*: i-f a*“ " n " t hen50 
360 i-f a*< >" i "then350 

370 sys679:print:print"Cneer31aad de ka 
rakterset weer in en typeC5xspatie3 
tneer3CCYAAN3poke 53272,30" 

380 pr i nt"Cneer 3CGEEL 3druk op spatie om 
opnieuw te starten, of op s om te s 
toppen" 

390 geta*:ifa*<>" "anda*<>"s“then390 
400 i-f a*=" "thenrun 


*** EINDE LISTING *** 


syntax checksum: karaktergenerator 



regel 

1 

35 

regel 

210 

25 

regel 

2 

139 

regel 

220 

19 

regel 

3 

210 

regel 

230 

171 

regel 

4 

143 

regel 

240 

178 

regel 

10 

91 

regel 

250 

151 

regel 

20 

22 

regel 

260 

136 

regel 

30 

20 

regel 

270 

182 

regel 

40 

83 

regel 

280 

70 

regel 

50 

151 

regel 

290 

217 

regel 

60 

17 

regel 

300 

227 

regel 

70 

191 

regel 

310 

139 

regel 

80 

114 

regel 

320 

243 

regel 

90 

203 

regel 

330 

25 

regel 

100 

59 

regel 

340 

66 

regel 

1 10 

72 

regel 

350 

128 

regel 

120 

19B 

regel 

360 

33 

regel 

130 

146 

regel 

370 

43 

regel 

140 

217 

regel 

380 

181 

regel 

150 

208 

regel 

390 

42 

regel 

160 

81 

regel 

400 

23 

regel 

170 

72 




regel 

180 

239 




regel 

190 

115 

ready 

a 


regel 

200 

104 
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Vic Letterpuzzel 


Op het scherm wordt het bekende schuifpuzzeltje gespeeld. 
Het gaat dit keer met letters. Links staat de juiste volgorer terwijl 
rechts uw opgave flink gemixed wordt. Het wordt gespeeld met 
een joystick en uw beurten worden geteld. 

Door C. Majoor uit Rotterdam. 



OU /V/F. 



I 




rem letterpuzzel / vic 20 
rem door c. matoor 
rem uit rotterdam 
rem 

print"CCLR — HOME3"ipl=7710:k1=38430 
:bu=7S48:lp=7703spk=160:poke 36B78, 
15 

for a=lto7:for b=3to6ipoke pl+b,tsp 
<e k1+b, 61 

poke lp+b,t ipoke30720+lp+b,2st=t+i 
3 j = j-1 

ift>26then t = 160 
if i <0-then i = 160 
next b 

pl=pl+22s kl=kl+22a1p = lp + 22 : nekt a 
gosub 190 

poke bu,hmipoke30720+bu,6 

poke bu-h,p k 

•for t = 11 o200 s nek t 

poke 37154, 127 8 k=(peek <37137)and2B> 
or (peek(37152)and 128)8 poke 37154,25 
5 

pm=peek(37137)and32 
if k=156then 100 
if k = 140 then h=-1 
if k=28 then h=+l 
if k = 152 then h=-22 
if k=14B then h=+22 

bu=bu+hipk=peek(bu)8hm=peek(bu-h) 

if pk = 32thenbu=bu-higoto 100 

sc = sc + 13 pok e 36876,2208poke 36876,0 

print" CH0ME3";sc 

goto60 

for a=lta400 
i»int(rnd<1)*5) 
if i = 1then h = -22 
if i=2then h=+22 
if i=3then h=-1 
if i=4 then h=+l 

bu=bu+h5pk=peek(bu)shm=peek(bu-h) 

if pk = 32then bu=bu-h:goto 192 

poke bu,hm 3poke30720 + bu,6 

poke bu-h,pk 

nekt a 

return 


loneren 


Muziekprogramma op de Vic. Noten worden gespeeld terwijl op 
het scherm een kleurige rij balken wordt gevormd na het 
indrukken van de cijfertoetsen. D.m.v. de letter ”H” in te tikken 
wordt de gecomponeerde muziek (met de balken) herhaald. 
Door C. Majoor uit Rotterdam. 



rem componeren / vic 20 
rem door c majoor 
uit rotterdam 
rem 

dim m(50) 

form=1t08sread z(m)snekt 

data 131,145,157,162,172,181,189,19 

3 

poke 36879,238spoke 36878,15ste=0 
print" CCLR-H0ME3 h = herhalen&l/8 = pla 
y"a b = 483 
fork=lto50 

get m*8ifm*=""then poke36876,0:goto 
60 

if m*="h"then 140 
m=val<mS) 
m < k ) =m 

b =b + 1 s if b >505then b = 484 sprinf'CCLR 
MEI " 

p=b -<44*m> 
p1=7680 sk1=38400 
for a=bto patep-22 

pokepl+a,1603poke kl+a,m3poke 36876 
, z (m) 

nekt3te=te+lsnekt 

b=483sprint"CCLR-HOME3 herhaling" 

fork=ltote 

m= m < k) 

b = b + l s i f b >505then b = 4843 print"CCLR- 
E 3 " 

p = b -< 44*m) 

for a=bto pstep-22 

pokepl+a,1601poke klta,mipoke 36876 
, z (m) 

nektasfor t=lto40 snextt 
poke 36876, 0snext k 
get afsif a*=""then 250 
if a$="h"then140 
goto 40 

*** EINDE LISTING **« 


£ 
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Videotrack 64 


VIDEOCASSETTE ARCHIEF 

Het volgende, wel vrij lange, programma is van grote klasse! 
Gebruiksvriendelijk, compleet en zeer verzorgd, maar wel alleen 
voor 64 bezitters met een diskdrive, al kunnen de cassettege- 
bruikers wel veel leren van de gebruikte subroutines. 

Dit is iets voor de bezitter van een video-bibliotheek, want P. 
Baggerman maakte een uitgebreid bestandsprogramma voor 
videobanden. In twee delen, Videotrack 1 richt een bestand in 
voor het Videotrack 2 in. Werkt met en diskdrive! Zorg dat vóór 
het te runnen er een lege diskette in de drive zit, anders 
formatteert hij wel je schijf leeg, daar is geen controle op. 
Videotrack 2 is om het overzicht van de videobanden echt te 
gebruiken. 

Door P. Baggerman, Rotterdam. 



Er kunnen maximaal 175 cassettes in het bestand, die ieder 
weer maximaal 16 opnames mogen bevatten. Gegevens als 
naam, bandteller, en lengte geven inzicht in wat er op een 
bepaalde video staat. Wel een hele floppy voor het bestand 
reservere, er worden namelijk 580 blokken voor bestand en 52 
voor het programma gereserveerd. Het bestand kan op naam of 
zelfs deel van de naam worden doorzocht, dat gaat erg snel, 
maximaal 1 minuut 15 seconden, maar meestal veel sneller. 
Ook zit hierin een hele goede optie om labels voor de cassettes 
uit te printen, of lijsten te maken. Nogmaals, goed oppassen met 
het eerste programma, dat de schijf formatteert en u later ook 
niet meer hoeft te gebruiken. Later is via LOAD ”*”,8 de zaak 
weer te starten. 

Subroutines en kernpunten: 

4000 funktietoetsen 
4100 bromtoon 
4180 Home en CLR aan 
4150 input subroutine 
4200 pieptoon 

4250 videocassette binnenhalen uit file 
4300 topscreen 

4400 error channel en file openen 

4500 hoofdmenu toets 

4550 kop 1541 plaatsen op record RN 

4600 besturingsstrings samenvoegen in RB$ 

4700 inhoud 2801 (laatste record) 

4750 cursor positioneren 
4800 menu printer 
4650 Home en CLR uit 
4900 printer aan test 


10 rem videotrack fa 

20 prInt"CCLR-HOMElCRVB-aanlC12xspat lel 
videotrack 64 faC12xspatia3CRVB-uit3" 
30 pr int " C2xneerJetop een nieuwe flopp 
y in da disk-drive" 

40 pr int " C2xapatleien druk daarna op CRV 
aan] return CRVS-ult]" 

50 geta*Iifa*<>chr*<13)then50 
60 pr i nt"C2xneer 3 ca. 7 minuten geduld 
a ■ u ■ b . " 

70 open 15,8,15 

B0 print#15, "n0i videotrack 64,64" 

90 input#15,e1 *,e2t,e3*,e4* 

100 if e2*< >"ok"thenak=ak+l i ifak<3thenB0 
110 ifak<>3thenl60 

120 cloae15 1 print”Cneer 3 slechte floppy 
! neem een andere en" 

130 print" druk op tRVS-aanl return CRV8- 
t 3 " 

140 getaliifa*<)chr»(13)thenl40 
150 goto70 

160 closel5lopenl5,8,lSiopanl,B,S,"0■vi 
deo-file,1,"+chr*(52) 

170 hi-int(2805/256)i10-2805-(hi*256) 

180 print#15,”p"+chr*(B>+chr*(lo)+chr*( 
h i )+chr*(0) 

190 print#l,"videa"iinput#15,el*,e2*,e3 
*,e4*ihi = int(2801/256)ilo = 2B01- (hi* 
256) 

200 print#15,"p"+chr*(B)+chr*(lo)+chr#( 
hi)+chr * (0) 

210 print#l ,"0000001 " 

220 nu*»“" 1 fort=lta51inu$’nut+chr*(48)■ 
next 1 fort»2802to2S05 1 hi“int(t/256) 

230 lo=t-(hi*256)«print#15,"p"+chr*(B)+ 
chr*<lo)+chr*(hi)+chr*(0) 

240 print#1,nu* 1 next 
250 c1ose1■c1ose15 1 gosub290 
260 f ort=ltol00i poke532Bl,t 1 poke532B0,t 
+liforx=lto20snextinext 
270 pake532B0,14spoke532Bl,6 
280 prinf'klaar ! " 1 end 

290 open 15,8,15 1 open5,B,5,"#" 1 print#15, 
"b-p 5 4" 

300 readwiifw“-lthen320 

310 print#5,chr»<w)| 1 gato300 

320 prlnt#15,"b-w |5 0 18 1B" 

330 c1ose5«c1ose15 1 return 

340 data234,234,173,3,2,133,6,173,4,2,1 
33,7,162,0,134,21,134 
350 data20,232,232,134,111,232,134,112, 
169,128,133,0,165,0,48,252,165 
360 data2,4B,252,173,0,3,133,8,173,1,3, 
133,9,169,128,133,1 

370 datal65,1,48,252,173,0,4,133,8,173, 
1,4,133,9,162,2,189 


380 

data0,4,157, 

254 

,3,232,208, 247, 16 

0,2 


55,200,204,1 

0,2 

,240,70,185 


390 

datal2,2,201 

,63 

,240,243,209,111, 

240 


,239,230,20, 

208 

,7,230,21,208 


400 

data3,238,19 

4 | 5 

, 165,20,205,7,2, 1 

A5 _ 


21,237,8,2, 1 

73, 

1 7 4 j J 


410 

data237,9,2, 

1 7ét 

,29,24,165,111,10 



1,2,133,111, 

144 

19R 1 AR 1 


420 

data 133,111, 

1 62 

,2,189,254,3,157, 

0,3 


,232,208,247 




430 

d at a96,174,1 

»“ f 

e 4 ze na < c [7 a e 

165 


,21,157,1,5, 

173 

4 Q A C 


440 

datal57,2,5, 

232 

,232,232,200,1,23 

2. 1 


42,195,5,224 

$ **■ • 

,208,165,96 


450 

data0, 0,0,0, 

196 

,0,0,0,0,0,0,0,0, 

0,0 


,0,0 




460 

data0, 0,0,0, 
,0 

0,0 


0,0 

470 

dataO,0,©p ®, 
,0 

0,0 

,0,0,0,0,0,0,0,0, 

0,0 

4S0 

dataOp0 p 0 p 0 p 

0, O 

,0,0, 0,0, 0,0, 0,0, 

“ 1 


*** EIN 

DE 

LÏSTING *** 
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syntax checksuni videotrack 1 


regel 

10 

2 

regel 

250 

115 

regel 

20 

241 

regel 

260 

227 

regel 

30 

182 

regel 

270 

96 

regel 

40 

1 12 

regel 

280 

35 

regel 

50 

28 

regel 

290 

49 

regel 

60 

31 

regel 

300 

196 

regel 

70 

251 

regel 

310 

249 

regel 

80 

18 

regel 

320 

165 

regel 

90 

8 

regel 

330 

221 

regel 

100 

250 

regel 

340 

109 

regel 

110 

236 

regel 

350 

48 

regel 

120 

1 12 

regel 

360 

25 

regel 

130 

54 

regel 

370 

32 

regel 

140 

76 

regel 

380 

105 

regel 

150 

240 

regel 

390 

191 

regel 

160 

120 

regel 

400 

87 

regel 

170 

142 

regel 

410 

66 

regel 

180 

90 

regel 

420 

122 

regel 

190 

170 

regel 

430 

146 

regel 

200 

90 

regel 

440 

131 

regel 

210 

138 

regel 

450 

227 

regel 

220 

62 

regel 

460 

115 

regel 

230 

1 1 

regel 

470 

115 

regel 

240 

120 

regel 

480 

233 


ready. 


pakel,55tprint"C CLR-HOME3C3xneer3Cl.bla 
uw3C10xspatie3CRVS-aan3 even geduld 
a.u.b. CRVB-uit3"ipoke532B0,11 
poke53281,0:poke52, 15Btpoke56,158s c1r 
iprlntchr*(8)tapen 15,8,15,"ui" 
fort=40448to40612ireadwis=s+wgpoket 
,w t nex t 

ifs<>22591thenprint"Cneer 3 -fout in 
data-rsgela 10000-10080 !"«stop 
5=0i -fort««40704to40778i rtadui s=a+wi poke 
t, mi next 

ifs<>97B5thenprint"Cneer3 -fout in d 
ata-regels 10100-10130 !"istap 
s=0i -f ort =83210959 1 readwis=s+wipoket 
,wt next 

ifs<>9370thenprint"Cneer3 fout in d 

ata-regels 10200-10250 !“istop 

dimop*(17),rf*<17),q<40> 

fart=ltoléiraadop*(t)inext 

fort = lto51isp1> = ap* + chr«<160)inext 

vc = 53248 

fari=0to7im<i)=2tiinext 

5=0ifort=0tü9ifori=0ta7ireadcw(t,i) 

is=s+cw(t,1)inextinext 

ifs<>4645thenprint"Cneer 3 fout in d 

ata-regels 10400-10430 !"istop 

f=fre(0) If=0isys40704 

poke2040, 13tpoke2041,14t pokevc,23Bi 
pokevc+2,30ipakevc+l,62ipokevc+3,62 
pakevc+16,2tpokevc+39,0tpokevc+40,0 
«pokevc+21,3ipokevc+23,0ipokevc+29, 

3 

c 1 asel 5 

gasub4300 b ml* = "C RVS—aan 3 Ci&xspatie3 
hoofdmenuC15xspatie3CRVS-uit 3" 
m2*="opzoeken"tm3*="manipuleren”«m4 
*="printen"tm5*="stoppen"tgosub4800 
gosub4000tifas<1oras>4then2100 
□nasgosub5000,&000,7000,9O00 
goto2000 

gat k * tifk*="”then400@ 
as=asc(k4)-132ireturn 

poke54277,136tpoke5427B,136«poke542 
76,33ipoke54296,14■poke54273,8 
fartg = lto200t nexttgipoke54273, 0ipoke 
54296,8ireturn 
pake5B692,96ipoke5B726,96 


4160 cn*="“iinput”C7xBpatie3C6xlinks3"|c 
n*ien=valIcni) 

4170 ifcn<lorcn >175thenprint"C2xop 3"« gasub 
4 100igota4160 

4180 pake58692,173tpoke58726,160treturn 
4200 poke542S4,68ipake54285,66tpake54283 
, 17tpoke54296, 14ipoke54280,61 
4210 pake54279, 126i-fartg = lto200inextipoke 
54279,01poke54280,01poke54296,14 
4220 return 

4250 t=0itorrn=cltocl+15igosub4550it=t+l 
■ input#l,rf#(t) i ifrf*<t)=sp*then427 
0 

4260 nextiao=16■goto4280 
4270 rn=c1+16inexttaa=t-1 
4280 cl oseliclosel5ireturn 

4300 pake2,peek(v+40)ipokev+40,peek <5328 
1)Ipokev+39,peek <53281) 

4310 print" CCLR-H0ME3C1.b1auw].......... 

■■■■■■ C9xspatie3 hhhhhhhhmmwhmm " j 

4320 prInt"CRVS-aan3 C16xapatie3CRVB-uit3 
CR00D3CRVS-aan3 «CRVS-uitS CGR0EN3 
C RVS-aan 3 CRVS-uit3 CRVS-aan3 CRVS-uit: 
Cl.blauw3CRVS-aan3C15xspatie3CRVS-uit: 
•• I 

4330 print"CRVS-aan3C3xspatie3videotrack 
C3xspatle3 CRVS-uit3 CROOD3 CRVS-aan3 
«■* C RVS —u i t 3 C GROEN 3CRVS —aan3 mm CRVB-ui 
t 3 Cl.blauw3CRVS-aan3C15xspatie3CRVS-u: 
t 3 " | 

4340 print"CRVS-aan3 C16xspatie3 CRVS-uit3 
C ROOD 3 CRVS-aan ]a«CRVS-uit 3 C GROEN 3 
C2xspatie3CRVB-aan3«CRV8-uit3 Cl.blauw! 
CRVS-aan3C15xspatie3CRVS-ult3"| 

4350 print" mmmmmmmmmmmmmmmmmmmmmmmmmmmmm 
mmmmmmmmmmm "J 

4360 pokev+40,peek <2) ipokev+39,peek <2) iretui 
4400 openiS,6,15,"i"iopenl,8,8," 0ivldeo- 
f11e,1,"+chr*<52)ireturn 
4450 gasub4400iprlnt#15,"p"+chr*(8)+chr* 

<241)+chr* <10)+chr* <0)iInput#1,act 
4460 ac=val(act)iclose!icloselSireturn 
4500 v=24igosub4750iprlnt"C2xspatle3druk 
op een toets voor het hoofdmenu 
4510 getgcSilfgcS»""then4510 
4520 return 

4550 h = lnt<rn/256>il»rn-<h*256)iprint#15 
,"p"+chr*(8)+chr*<l)+chrS(h)+chr*<0 
) 

4560 h=0i1=0ireturn 

4600 rn = 2802tgosub4550t1nput#1,r1 *■rn=28 
03« gosub4550i i nput #1,r2tirn = 2804 
4610 gasub4550iinput#l,r3*irn=2B05igosub 
45501Input#l,r4*irb#=rl*+r2*+r3*+r4 
* 

4620 ....return 

4650 rl*=left*<rb*,51)ir2*«mid*<rb*,52,5 
1)ir3*=midS<rb»,103,51) 

4660 r4*=mid*(rb*,154,51)irn=2802igosub4 
550iprint#l,rl*irn=2803igosub4550 
4670 pr intttl, r2*irn = 2884« gasub4550 1 print# 
I,r3*irn=2805igosub4550iprlnt#l,r4* 
4680 rl*=""ir2t=""ir3t=“"ir4t= , " , irsturn 
4700 fort=175tolstep-ltHmid*<rb«,t,l)»“ 
0"thennext 

4710 tr=t+litrt=str*(tr):trS=right*(trS, 

Oen < tr *) -1) ) 1 1r* = " 00000 " + trt 
4720 rn=2801igosub4550iprint#l,tr*ireturn 
4750 poke781,v:poke782,htsys58636iv=0th= 

0:return 

4800 sys40448iprintml*iprint"C3xneer 3 C1lxsp 
at ie3 CRVS-aan3 -f 1 C RVS-u i t 3 C 2x spat 1 e 3 
>>C2xspatie3"tm2* 

4810 print "Cneer3Cllxspatie3CRVS-aan3 f3 
CRVS-uit3C2xspatle3>>C2xspatie3"|m 
3* 

4820 print"Cneer3C1 lx spat 1e3CRVS-aan3 f5 
CRVS-uit3C2xspatie3>>C2xspatie3";m 
4* 























Het is zo langzamerhand een traditie ge¬ 
worden voor ons blad, dat we er een serie 
'missers’ in afdrukken. Vooral deze maand 
kon je merken, dat er nogal wat vrije tijd in 
de computer gestoken is, want er zijn een 
paar missers binnengekomen van uitga¬ 
ven, die al een paar maanden geleden zijn 
verschenen. Niet allemaal even erg, maar 
toch goed om de zaak nog even recht te 
trekken. Nogmaals, we staan open voor 
commentaar op onze listings, al weten we 
uit ervaring dat 95% van de fouten helaas 
aan het intikken door de lezer liggen. 

Italics 

De eerste misser werd ons gemeld door 
dhr.Kraamer uit Utrecht. Hij maakte zich 
nogal druk over het feit, dat een miniatuur¬ 
tje uit Jaargang 2 nr.4 niet werkte. Dit 
behelst een programmaatje uit Belgie, 
waarmee je min of meer cursieve letters op 
het scherm kunt krijgen. 

We drukken voor de goede orde de juiste 
listing van dit stukje software nogmaals af. 
10 FOR K =0 TO 99: READ Q: POKE 
49152+K.Q: NEXT 
20 SYS 49152 
30 END 

40 DATA 169,21,141,24,208,169,48,133. 
52,133,56,169,0,141,14,220,169, 
51,133,1 

50 DATA 160,0,132,253,169,208,133,254, 
169,48,133,252,132,251 
60 DATA 177,253,10,145,251,200,192,2, 
208,246,177,253,145,251,200,192, 
5,208,247 

70 DATA 177,253,74,145,251,200,192,8, 
208,246,162,230,251,230,253, 
202,208,249 

80 DATA 165,251,208,214,230,254,230, 
252,169,56 

90 DATA 197,252,208,204,169,55,133, 
1,169,1,141,14,220,169,28,141, 
24,208,96 


Het aan- en uitzetten van de 'schuine' 
letters gebeurt respectievelijk met POKE 
53272,28 en POKE 53272,21. 

Na het intypen van RUN, duurt het onge¬ 
veer een minuut, voordat het geheel in 
’italic-mode’ op het scherm verschijnt. 

Vic 20 Database 

In jrg 2, nr. 5 moet in het programma op 
pag. 44 regel 570 geen streepje, maar een 
pijltje naar links bevatten. 

Zone Cruiser. 

Het spelprogramma Zone cruiser, uit jaar¬ 
gang 2, nr 3 blijkt ook nog steeds voor 
problemen te kunnen zorgen. Nu is dat niet 
zo’n wonder met zoveel data-regels, maar 
met nadruk wil ik nogmaals stellen, dat het 
programma, zoals het in C-info is afge¬ 
drukt, door ons vele malen gecheckt is. 

De snelle intikker, die hier en daar wel eens 
een spatie laat vallen komt echter in de 
problemen met regel 515. In deze regel 
komt de opdracht 'FOR I = 13-LE TO 12’ 
voor. Als in dit statement de spaties wor¬ 
den weggelaten, dan staat er dus FO- 
RI=13-LET012. De computer interpre¬ 
teert dit verkeerd, doordat hij denkt het 
woord LET te zien. De simpele oplossing: 
zet 13-LE tussen haakjes, en van een foute 
interpretatie is geen sprake meer. Geen 
echte fout dus, maar wel een ongelukkige 
keus van de variabele LE. Wel wil ik er nog 
op wijzen, dat na RUN het plm. 2 minuten 
duurt, voordat het programma op het 
scherm begint. 

Syntax Checksum. 

De in nr.5 van deze jaargang geplaatste 
(uitgebreide) versie van onze listing-tester 
blijkt niet helemaal te kloppen. Ik schaam 
me daarom ook diep, vooral vanwege het 
feit, dat de fout er door mijn eigen toedoen 
is ingeslopen. 

Regel 50 moet luiden: 

POKE 49184,148: POKE 49185,192 
Als je dit hebt aangepast, kun je inderdaad 


de listing op het scherm stoppen. In de 
checksum listing moet regel 95 vervallen. 
Ook de getallen voor de regels 240 tot 260 
zijn anders dan staat afgedrukt. Sorry voor 
deze scheve schaats. 

Functietoetsen. 

Vlak voor het drukken van dit nummer 
bereikte ons een berichtje van P.Bos uit 
Meedhuizen. Hij beweert de volgende mis¬ 
ser te hebben ontdekt in miniatuurtje 
Functietoetsen. 

In de DATA van regel 65 komt ergens het 
getal 204 voor. Dit moet veranderd worden 
in 201. Daarna loopt het geheel korrekt, als 
je tenminste regel 45 ook hebt aangepast, 
(zie missers uit het vorige nummer). 

Spritegenerator 

Het is een aantal lezers een doorn in het 
oog, dat in dit programma (jg.2 nr.3) een 
nietszeggende regel voorkomt. Het gaat 
hier om regel 43 waar staat 43 ADY en dat 
is alles. 

Toch werkt dit programma goed, ondanks 
deze vreemde syntax. Aan de ervaren Ba- 
sic-programmeurs zal het zeker niet zijn 
ontgaan, dat het programma nooit bij regel 
43 komt. Voor de anderen onder ons de 
volgende tip: Als deze regel je stoort, dan 
haal je hem gewoon uit het programma, en 
er gebeurt verder niets. Dus toch geen 
misser. 

Bankafschriften 

Een hele oude misser tot besluit. De lijst 
met checksum nummers van dit program¬ 
ma is langer dan het programma zelf. De 
tabel is korrekt vanaf regel 2, dus de eerste 
rij moet als niet gedrukt worden be¬ 
schouwd tot en met regel 10794. Maar dit 
was verder geen probleem, de listing zelf 
was korrekt. • 

Jan Bodzinga 


Lom 'u 

tost 

THE BEST 
OF THE REST 


Computopost "order” levert alles voor uw homecomputer. 


software, boeken, printers, 
modems, div. kabels, stofkappen, 
diskettes, eprom programmers, 
enz. enz. 


Bel voor catalogus of stuur een kaartje 
o.v.v. computermerk. 

Prijzen incl. BTW, excl. verzend- of 
rembourskosten. 


POSTBUS 225, 8100 AE RAALTE, 05720-54637/54197 
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4830 pr int" Cneer! C 1 lxspat ia] CRVB-aan 3 f7 
CRVS-uit! C2xspatie3 >>C2xspatia3"j m 

5* 

4840 poke198,0ireturn 

4850 poke58692,96 1 poke5B726,96ireturn 
4900 print" Cneer1 staat de printer aan ? 

"; 

4910 gBtgc*iifgc0<>"i"andgc*<>"n"then49i 
0 

4920 i-fgc*="J” th en prlntgc*! return 
4930 print!gosub4100iprint"Cneer3 CEEEL3 
CRVS-aan3C2xspatie3zet hem dan nu a 
an !C2xspatie3CRVS-uit3Cl.blauw 3"igoeub 
4100 

4940 ■forgc = ltol500mextsprint"Cop3C32xspatie 
3C4xop3"igoto4900 

4950 gc$ = rft tt)irl*=left*<gcS,40)ir2*=right* 
(gc$,5 > sr3 = val <mid$<gc*,44,3>) 

4960 ru=int(r3/60)irm=r3-(ru*60>irm»=str* 
(rm)si f 1 en(rm*)=2thenrm*“" " + r m* 

4970 print#4," C5xspatie3")r2*j"C2xspatie3" 

I r 1* | " CSxspat ie3 " j r u| "uur "|rm*|" m 
inuten"«return 

5000 ml$“''CRVS-aan3C16xspatie3opzoekenC16xsp 
atie3CRVS—uit!" 

5010 m2$ = "titer l ini3* = "Ben cassette"im4*“ 
"bladeren"im5$="hoofdmenu" 

5020 gosub4800 

5030 gosub4000i1fas<1oras>4then5030 
5040 onasgoto5100,5500,5600,6990 
5050 gato5000 

5100 sys40448iprint"C RVS-aan 3C13xspatie3 
titel opzoekenC13xspatie3CRV5-uit!" 

5110 gosub4B50sprint"Cneer3 welke titel 
zoekt u naar" 

5120 z*“'"'iinput"C20xspatie!Cl9x1inks3"| 
z$i 2 *len(zt) 

5130 ifz<lorz>40thengosub4100iprint"C2xop3" 

Igoto5120 

5140 gosub41801 print"CHQME3Cllxneer3 mom 
ent a.u.b, ik zoek nu op de floppy" 

5150 q*=z*igosub200001pokel98,0iifeg=@then 
5290 

5160 ifeg®2then5230 

5170 sys4044Biprint"CRVS-aan3C17x spatie3 
zoekenC17xspatieleRVB-uit3" 

51B0 print"Cneer! stop de videotrack flo 
ppy goed in de"iak=ak+l 
5190 print"Cnear3 disk-drive en druk op 
C RVS-aan 3 return CRVS-uit!" 

5200 getgc*ilfgc*<>chr*(13)then5200 
5210 ifak<4thensys4044Bigoto5140 
5220 gosub4500ireturn 

5230 gosub4100iprint"C2xneer3C10xBpatie3 
CRVS-aan3C2xspatie3CROOD3 h e 1 a a 
s ! Cl.blauw!C2xspatie3 CRVS-uit 3 Cl.bla 
uw 3 " 

5240 print"Cneer! de titel i Cneer 3"igosub 
4100iprint"CRV3-aan3CBEEL3"z* 

5250 print"Cneer 3 C1.b1auw!komt C ROOD 3ni 

etCl. blauw! in het file voor .'"igosub 
4100igosub4500ireturn 
5260 v=24lgosub4750iprint"C5xspat iel druk 
op een toets voor vervolg")ipokal9 
8,0 

5270 gatgcfiifgc*“""then5270 
5280 sys40536ireturn 

5290 prinf'Cneer! gevonden, ik laad nu d 
e cassette" 

5300 gosub4400ifort“ltoq9icn = int(q (t)716 
)iifq (t)/16“cnthencn=cn-l 
5310 forx=ltol6srn=x+(cn*16)igosub4550iinput 
441,rf *(x)■ifrft(K)“sp*then5325 
5320 next!x=16igoto5330 

5325 tt=x-lIx»17inext■x=tt 

5326 ifx=0thenprint"Cneer 3 deze cassette 

is leeg !"ireturn 
5330 enf-mid»<rf*(1),41,3>itt-1 


5340 sys40536iprint"Cneer3C5xspatie3vide 

ocassette nr. i CRVS-aan! "|cn*“ CRVS-u 
itlCneerl" 

5350 a$ = rf*<tt) irl*<=leftS(a*,40) irt*val ( 
mid*(a*,44,3!>sbt*=right$<a*,5) 

5360 ru=int <rt/60) i rm**rt- <ru*60) i if laf t* 

<rl$,1 en<q*))“q*thenrl*“"CRVS-aan!" 
+rl*+"CRVS-uit3" 

5370 printrl*;" "jruj"uur"spe (- (rm<10))j 
rm;"min.C5xspatie3bandtel 1 er i "|bt 
*!print 

5375 if(tt=5ortt“10ortt“15)andx”ttthen53 
95 

5380 iftt=5ortt=10ortt°15thengosub52601t 
t=tt+ligoto5340 

5390 tt=tt+liiftt<x+lthen5350 
5395 ifec=1thenreturn 

5400 v=24igosub4750iprint" nog verder 7" 

; 

5410 getgcSiifgc*< >” i "andgc*< >"n"then541 
0 

5420 ifgcü="n"then5470 

5430 cl=cnicn-int<q(t+l>/16>iifq<t+l)/16 
=cnthencn«=cn-l 

5440 ifc1=cnthent“t+1igoto5430 
5450 pr i nt”C13x1inks3 o.k. even geduld a 
. u. b . " j 
5460 next 

5470 closeliclosel5igosub4500ireturn 
5500 sys4044Biprint"CRVS-aan3C9xspatie3e 

en cassette opzoekenC10xspatie3CRVS-uit 
3 " 

5510 prinf'Cneer! welk cassettenummer wi 
1t u zien" 

5520 gosub4150 

5540 gosub4450iifcn>ac-11hengosub5370 1 goto 
5560 

5550 gosub4400iec»liql«spticn=cn-ligosub 
. 5310 

5560 cl oseii c1osb15i gosub4500i ec“0 1 return 
5570 prinf'Cneer! er bevinden zich maar" 
ac-1 "cassettes in"igosub4100 
5580 print"Cneer3 het file ! " igosub4100 1 
return 

5600 Bys40448iprint"CRVS-aan 3 C16xspatiel 
bladerenC16xspatie3CRVS-uit3" 

5610 print"Cneer! vanaf welk cassettenr. 

wilt u bladeren" 

5620 gosub4150 

5640 gasub4450iifcn>ac-lthengosub5570iprint 
■goto5610 

5650 goaub4400i*c«liq*»spticn=cn-l 
5660 gosub5310 

5670 print"CRVS-aan3vCRVB-uit3vooruit' 

■ CRVB-aan3aCRV8-uit3“'achteruit’ 

I CRVB-aan3sCRVB-uit3-stoppen"j 
5680 getgc$iifgc*<>"v"andgcS<>"a"andgcS< 

>"s"then5680 

5690 ifgc*="v"thencn“cn+l 
5700 ifgc$*"a"thencn»cn-l 
5710 ifgcS“"s"then5750 
5720 ifcn><ac-2)thencn=cn-1 
5730 if cn<0thencn=0 
5740 goto5660 

5750 closeliclosel3igosub45001 ec“0i return 
5760 goto5660 

5770 closeliclosel5igosub4500iec“0ireturn 
6000 ml*="CRVS-aan3C15xspatie3manipulere 
nC14xspatie3CRVS-uit3" 

6010 m2S="invoeren"im3$“"veranderen"im4* 
“"wissen"s m5* = "hoofdmenu"igosub4800 
6020 gosub4000iifas<1oras>4then6020 
6030 onasgoto6100,6700,6500,6990 
6040 goto6000 

6100 sys40449jprint"CRVS —aan 3 Céxspatieln 

ieuwe videocassette invoerenC5xspatie3 
CRVS-uit3";igosub4400 j 
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6118 print"[neer Ornamentie s.u.b.tneer]"i 
gosub4600afort»ltol75aifmid*(rb*,t, 

1) = " 1"thennsxt 
6120 ift=176then6450 

613® cn=ticn*”str*(t)icn*-rlght*(cn*,(len 

(en*)-1))!closBlic!osel5 
6140 print 11 dit wordt videocassette nr. CRVS- 
aan] "|cn*” CRVS-uit3" 

6150 prinf'C2xneer3haevesl opnames staan 
er op de" 

6155 print" videocassette "|Igosub4B50 
6160 ao»=""i input "C8xspatie3C8xl inks]"|a 
o*aao=val lioi) i if ao>0andao< 17then61 
70 

6165 V a, 13igosub4750igosub4100igoto6155 
6170 sya40536afort=1toao 

6180 goBub4180aprint"CHOME3CBxneer3gegev 
ens "jop*(t)|" opname >C10xspatie 1 " 

Igosut>4850 

6190 print"[nserltitel iC22xBpatle3C21xllnka 

6200 na* = ""iinputna*ana=»len(na*>iifna<lor 
na>40thengosub4100:goto61B0 
6210 print"Cneer3bandtel1erstand a "| 

6220 bt* = ""iinput"C1 lx spat ielC1lxlinks]" 

Ibt*ibt = val (bt*) 

6230 ifbt*-" "orbt<0orbt >99999thenprinf'C3xop 
]"igosub4100igoto6210 
6240 prinf'Cneer] CRVS-aan3 lengte opnam 
e CRVS-uitl” 

6250 prinf’Cneer] uren iC6xspatie3C5x1inksi“ 
| I poke204, 0 

6260 getlu*aiflu*=""then6260 
6270 ifasc (lu*X48orasc du») >57thengosub 
41001goto6260 

6280 print"CRVS-aan] "lu*" CRVS-uit3" 

6290 prinf'Cneer] minuten ■ "> 

6300 lm*».input"C5xspatio3C5xlinksl"|1 

m*i1m»val (lm*) 

6310 iflm<0orlm>59orlm*»""thengosub4100 j 
print"C3xop]"«goto6290 
6315 gosub41B0iprint"C2xneer] CRVS-aan] 
gegevens correct ? CRVB-uit3"j 
6320 getgc*iifgc*<>"3"andgc*<>"n"then632 
0 

6325 ifgc*»"n"thensys40536j goto6180 
6330 sys40536ana*»left*(na*+"C40xspatie3" 

, 4@) 

6340 bt*«right*("00000"+bt*,5)igosub4200 
icn*»rig.ht*(" 000" + cn*.3) 

6350 1o=val <lu*)*60+val (lm*)alo*=right*( 
str*(lo),(len(str*(la>)-l)) 

6360 la*-right*("000"+lo*,3) 

6380 rf*(t)=na*+cn*+lo#+bt*ipokal98,0anext 
Iifao»16then6400 

6390 fortt=(ao+l)tol6arf*(tt)=spSBnext 
6400 print" 1 C2xneer3 momentie a.u.b, de g 
egevens worden nu" 

6410 prinf’Cneer3 op de floppy gereglstr 
e e r d . " 

6420 gosub44008c=cn-lifort»ltol6arn=(c#i 
6)+tagoBub4550iprint#l,rf*(t)anext 
6430 tl*»left*(rb*,cn-l)at2*=right*(rb*, 
204-cn)irb*=t1*+"1"+t2*igosub4650 
6440 gosub47001closeliclosel5igosub42001 
gosub4500ireturn 

6450 gosub4 100aprinf 1 Cneer 3 helaas! het 
videotrack file is vol!*igosub4100 
6460 closeliclosel5igosub4500ireturn 
6500 sys40448iprint"CRVS-aan3CBxBpatie3e 

en videocassette wi ssen C8xspatie3CRVS-u 
i t 3 " , 

6510 prinf'Cneer] welk cassettenummer wi 
lt u wissen" 

6520 gosub4150 

6530 print “Cneer] wilt u eerst deze cass 
ette zien," 

6540 print"voordat hij gewist wordt ? "j 
6550 getgc»!ifgc*<>"j"andgc*< >" n "then655 
0 


6560 x=liprintgc*!gosub4400icl=(cn-l)*16 
+larn=claifgc*="i"thengosub6620 
6570 ifx=0then6610 

65B0 forrn»cltacl+15agasub4550aprint#l,s 
p*s next:gosub4600 

6590 tl*=left*(rb*,cn-l)at2*=right*(rb*, 
(204-cn))srb*=tl*+"0"+t2* 

6600 gosub4650iprint"Cneer3 vldeocassett 
e nr. ";cn*;" is nu gewist." 

6610 closeliclosel5igosub4500aec=0ireturn 
6620 ec = 1acn=cn-laq*="-“agosub5310acn=cn 
+laifx<>0thengosub5260!sys40536 
6630 return 

6700 syB40448iprinf'CRVS-aan3C6xspatie3e 

en videocassette veranderenC6xspatie3 
C RVB—uit 3"j 

6705 print"Cneer3 welk cassettenummer wi 
lt u veranderen" 

6710 gosub4150 

672@ gosub4400icl»(cn-1)* 16+1 
6730 gosub4250 

6735 if ao»0t henprint"Cneer 3 deze caasett 
e is leeg !":gosub4500:return 
6740 sys40536sfort=1toao 

6745 print"CH0ME3CBxneer3gegevens "|op*( 
t)|" opname iC10xspat ie 3"igosub4850 
6750 n*=left*(rf*(t),40)aprint"Cneer3tit 
el a C3xspatie3"jn*ah»Bav»10agosub47 
50 

6755 na*=""sinputna*a na=len(na*)iifna<lor 
na>40thengosub4100:goto6750 
6760 b*=right*(rf*(t),5)aprinf'bandtelle 

rstand a C3xspatie3"|b*ah = 18av»12agasub 
4750 

6765 bt*»""Binputbt*abt»val(bt*) 

6770 ifbt*=" "orbt<0orbt >99999thenprint"C3xap 
3"agosub4100agoto6760 
6775 prinf'Cneer] CRVS-aan] lengte opnam 
e CRVB-ult]" s rt=val(mid*(rf*(t),44, 

3) ) aru=int(rt/60) 

6780 rm»rt-<ru*60)aprint' 1 Cneer3 uren a"| 
ruiv=16ih'= ! 8agosub4750Bpoka204,0 
6785 getlu*a if lu*»'"*then6785 
6790 poke204,1 

6795 if asc (lu*X4Borasc (lu*> >57thengosub 
4100iprint"C2xop]"agoto67B0 
6800 print"CRVB-aan3 "lu*" CRVS-uit3" 

6805 prinf'Cneer] minuten sC2xspatie3"|r 
mav»18ah=lligosub4750 
6B10 lm*»""ainputlm*alm=val(lm*) 

6815 iflm<0orlm>59orlm*»""thengosub4100a 
print "C3xop3"agoto6805 
6820 gosub4180aprinf 1 C2xneer 3 CRVS-aanl 
gegevens correct ? CRVS-uit3"$ 

6825 getgcSaifgc*<>"i"andgc*< >"n"then6B2 
5 

6B30 ifgc*="n"thensys40536Dgoto6745 
6B35 Bys40536ana*»left*(na*+"C40XBpatiB3" 

, 40) 

6840 bt*»right*("00000"+bt*,5)agosub42O0 
acn*=right*("000"+cn*,3) 

6845 lo = val (lu*> *60+val (lm*) alo* = right*( 
strt(lo), (len(str*(lo))-D) 

6850 1o*=right*("000"+lo*,3) 

6855 rf*(t)=na*+cn*+lo*+bt*apokel9S,0anext 
aifao»16then6865 

6860 fortt»(ao+l)tol6arf*(tt)=sp*anext 
6865 print"C2xneer 3 momentje a.u.b, de g 
egevens worden nu" 

6870 prinf’Cneer] op de floppy geregiBtr 
e e r d . " 

6875 t=0agosub4400aforrn=cltocl+15at=t+l 
igosub4550iprint#l,rf*(t)anext 
6880 closelaclosel5agosub4200agosub4500a 
return 

6990 as=0:return 

7000 ml*="CRVS-aan3C17xspatie3printenC16xspa 
tie 3 CRVB-uit 3 " 

7010 m2*»"nummers"am3*="een cassette"am4 
♦ “"alle cassettes"a m5*="hoofdmenu" 
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7020 gosub4800 

7030 gosub40001ifas<loras>4then7030 
7040 onasgoto7100,7300,7500,6990 
7050 goto7000 

7100 sys4044Biprint" [RVS~aan:itl3xspatie3 
nummers prlntenC12xspatie][RVS-uit3" 
7110 pr1nt"[neer 3 welk nummer wilt u uit 
printen" 

7120 gosub4150ig=cn 

7140 print"Cneer3 momentje a.u.b." 

7150 g$=mid$(str$(g),2,denIstrt(g))-l)) 
ig$“right*("000"+g*,3) 

7160 gt*<l)=left*<g*,l)igt*<2)=>mid*<g*,2 
, 1)igt*(3)=right*(g*, 1) 

7170 fortt“lto3ig<tt)=aBc(gt*(tt))~48ifor 
t = 0to7ia = cw(g <tt),t) 

7180 fDri=7to0atep-ligc*“(chr*(41+sgn (aand 
m(i) ) ) ) i ifgc*=chr* <41)thengc*“" " 

7190 gl (tt,t)=g$(tt,t)+gc*inentinentine»t 
7200 gaaub4200igoaub4900iapen4,4«print#4 
iprint#4 

7210 fort“0to7ip*<t)=g*<l,t)+g*(2,t)+g*< 

3,t)iprint#4,p*<t)inextiprlnt#4iclase 
4 

7220 ... (1 , U»““i g*(2, 

t) -** '• i g* (3, t) i nex 1 1 g 1 *=■" " i g2* = " " 
7230 g31»""ia«fre(0)igosub4200igosub4500 
ireturn 

7300 sys40448i print"[RVB-aan3Cllxspatle3 

een cassette pr1ntent9xspatie3[RVS-uit 
7310Jprint"Cneer3 welk casaettenummer wi 
lt u uitprinten" 

7320 gosub4150 

7340 gosub4450i i f cn >ac-11hengoaub5570 1 pr 1 nt 
■ gat 0731 <D 

7350 gosub4400 i c 1 «■ ( cn-1 ) * 1 6+ 1 
7360 gasub4250 

7370 if ao = 0t henpr1nt"tneer 3 deze caeeett 
e is leeg !"igosub4500ireturn 
7380 gosub49@0 

7390 sys40536sopen4,4»print#4icn*=mid*(r 
f* ( 1) ,41,3) 

7400 pr 1 nt#4,spc<25) "-videocassette n 

r. "|cn»“-"iprlnt#4 

7410 for t'ltoaoigosub4950 1 naxtiprint#4 
7420 close4igasub4200igoBub4500>return 
7500 Bys40448iprint"CRVS — aan 3 ClOxspatie3 

alle cassettes pr 1 nt en C Bx spa11 e 3 t RVB- 
utt 3 " 

7510 gosub4900igosub4450sac«ac-liopen4,4 
iprint#4iprint#4 

7520 forcn“ltoacicl“<cn~l)*16+ligoBub440 
01gosub4250 

7530 1 f ao~0t henr f S ( 1 ) = 1 ef t # ( "deze casset 
te 1 b leeg !“+sp*,51) 

7540 print#4iprint#4icn*=mid*<rf*(l),41, 

3) 

7550 pr 1 nt#4,spc<25)"-videocassette n 

r. "|cn*“ -"iprlnt#4 

7560 ■fort = ltoaoigosub4950jnextinextiprint# 

4 

7570 close4igosub4200« gosub4500ireturn 
9000 fort=0ta23ipoke54272+t,0!nextsprlnt 
“C CLR-HQME 3"| tpoke53269,0sc1r 
9010 pokei ,55ipoke532B0, 14ipoke532B1,6iend 
10000 data 162,0,169,32,157,200,4,232,224 
,255,208,248,162,0,169,32,157,0,5,2 
32 

10010 data 224,255,208,248,162,0,157,255, 
5,232,224,255,208,248,162,0,157,254 
* 6 

10020 data 232,224,235,208,248,169,133,16 
2,0,149,224,232,224,6,208,249 
10030 data 169,134,162,0,149,230,232,224, 

7,208,249,169,135,162,0,149,237,232 
10040 data 224,6,208,249,162,5,160,0,24,3 
2,240,255,76,122,158,169,240,141,5, 

158 

10050 data 169,6,141,78, 1 5B, 1 69,96,141,85 

, 158,32,0, 158, 169,200, 141,5 , 1 58, 169,5 


m 


10250 

10300 


20060 

20070 


20080 

20100 


20120 

20125 


20126 

20130 

20140 

O 

20150 


20170 

20190 


20200 

20220 


' data 141,7B,158,169,76,141,85,158,9 
6,162,0,189,144,158,233,10,157 
data 203,7,169,11,157,203,219,232,2 
24,19,208,238,24,96,43,244,116,244, 
116 

data 43,51,14,52,43,27,13,27,43,106 
,234,106,234,43,96,0 

data 162,0,189,0,160,157,0,160,232, 

208.247.238.4.159.238.7.159.173.7.1 
59 

data 201,192,208,232,162,0,189,0,22 
4,157,0,224,232,208,247,238,28,159, 
238 

data 31,159,173,31,159,201,0,208,23 

2.169.160.141.4.159.141.7.159.169.2 
24 

data 141,28,159,141,31,159,169,53,1 

33,1,169,47,133,0,96,0,0 

data 0,0,0,0,0,0,255,255,255,128,0, 

0,183,255,255,183,255,255,135,255 
data 255,183,255,255,128,0,0,135,12 
3,187,128,0,0,255,255,255,0,0,0,0 
data 0,0, 0,0,0,0,0,0, 0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,255,0,0,0,0,0,0 
data 255,255,255,0,0,1,0,255,237,60 
,255,237,0,255,237,60,255,225,0,0 
datal,112,118,193,0,0,1,255,255,255 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 

data 0,0,0,0,0,0,0,0,0 

data "eerste","tweede","derde","vie 

rde" , "vi jfde", "zesde" , "zevende" 

data"achtste","negende","tiende","e 

1-fde", "twaalfde", "dertiende" 

data "veertiende", " vijftiende", "zbb 

tiende" 

data60,102,110,118,102,102,60,0,24, 
24,56,24,24,24,126,0,60,102,6,12 P 48 
, 96 

dat al 26 ,0,60, 102,6,28,6, 102,60,0,6, 

14,30,102,127,6,6,0,126,96,124,6,6, 

102 

data60,0,60,102,96,124,102,102,60,0 
,126,102,12,24,24,24,24,0,60,102,10 
2 

data60, 102 , 102 , 60 , 0 , 60 , 102 , 102 , 62 ,6 
,102,60,0 

eg“01 gosub44501q = ac*52*16i ql=0« q9=0 
s q2»0 

open 15,8,15,"i"iopen2,B,2,"#2"iget# 
2,ql*j ifql* = ""then20100 
print#15,"uj"iforql=ltol000inextql 
Close2iclosel5«q2=q2+liifq2<3then20 
050 

eg = 1 1 return 

print#15,"ul 2 0 18 18"iq2 =int<q/65 
536) 1 q3 = q-(65536*q2> «q4=int <q3/256> 
q5=q3-(q4*256> 

q2$-"u5 "+chrS(17)+chr*(0)+chr*(l)+ 

Chr*(0)+chrt(q5)+chr*(q4)+chr*(q2) 

q2*=q2»+chr*(len(q*))+chr*(l)+q* 

print#15,q2*iprint#15,"b-p 2 195" 

get#2,ql$sifql*=chr*<196)theneg=2sgat 

20220 

q6=asc(qlt + chr*(0) )-196-253*(asc <ql 
*+chr*(0))<50> 

forq7=ltoq6step3iget#2,q3*,q4*,q5* 
q8 = asc(q3*+chr*(0))+256*asc (q4* + chr* 
(0) )+65536*asc(q5*+chr$ (0)) 
q9=q9+lsq(q9)=int(qB/52)+linextq7 
close2sclosel5sreturn 


*** EINDE LISTING *** 


I 
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regel 

regel 

regel 

reaal 

regel 

regel 

regel 

regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
r eg e 1 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 


1000 

1010 

1020 

1030 

1040 

1050 

1070 

1000 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1190 

1200 

1210 

1220 

2000 

2010 

2100 

2110 

2120 

4000 

4010 

4100 

4110 

4150 

4160 

4170 

4180 

4200 

4210 

4220 

4250 


regel 
r egal 
regel 
regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


4260 

4270 

4280 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4400 

4450 

4460 

4500 

4510 

4520 

4550 

4560 

4600 

4610 

4620 

4650 

4660 

4670 

4680 

4700 

4710 

4720 

4750 

4800 

4810 

4820 

4830 

4840 

4850 

4900 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


4910 

4920 

4930 

4940 

4950 

4960 

4970 

5000 

3010 

5020 

5030 

5040 

5050 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 


Insteekkaartjes 
voor C-64 

SUPER EPROMKAART ƒ 105,- 
(Nr. 800) 

Voor 8x 4 of 8k Eprom’s 
Menu gestuurd, incl. resetknop 
Met mogelijkheid van doorschakelen van 2-8k 
tot 1 16k 

Automatische start voor basic programma’s 
Plaatsen van sommige kernal’s 

EPROMKAART ƒ 23,10 
(Nr. 200) 

Voor 2x 2k of 2x 4k of 2x 8k of 1 xl 6k Eprom's 
Incl. reset knop 

EPROMPROGRAMMER ƒ 151,26 
(Nr. 64) 

Voor 2716 t/m 27128 Eprom’s 

Incl. software-besturing met snelprogrammeermode 

(8k in 22 sec) en Textoolvoet 

Geen dipswitches, wordt softwarematig gestuurd 

Aansluiting op de userpoort _ 


FLOPPY FLASH 
(Nr. 2000) 


DISK TURBO 

IQx sneller laden en saven. 

3x snellere relatieve en sequentiële files 

Wordt op disk- en cartridgeport aangesloten. Plus 
extra slotconnector voor vrije cartridge. 

Laadt o.a. de volgende programma’s snel: 

Superbase origineel 

Multiplan origineel 

Hessgames 

Flightsimulator II 

Voor slechts ƒ 125,- 


124 

regel 

5325 

226 

47 

regel 

5326 

128 

233 

regel 

5330 

117 

144 

regel 

5340 

140 

171 

regel 

5350 

14 

108 

regel 

5360 

134 

193 

regel 

5370 

228 

167 

regel 

5375 

36 

176 

regel 

5380 

156 

59 

regel 

5390 

164 

38 

regel 

5395 

43 

101 

regel 

5400 

66 

78 

regel 

5410 

120 

74 

regel 

5420 

244 

132 

regel 

5430 

99 

175 

regel 

5440 

173 

165 

regel 

5450 

76 

225 

regel 

5460 

130 

215 

regel 

5470 

105 

108 

regel 

5500 

252 

41 

regel 

5510 

28 

161 

regel 

5520 

87 

172 

regel 

5540 

89 

16 

regel 

5550 

156 

212 

regel 

5560 

13 

30 

regel 

5570 

149 

78 

regel 

5580 

100 

21 

regel 

5600 

154 

140 

. regel 

5610 

137 

205 

regel 

5620 

B7 

45 

regel 

5640 

40 

104 

regel 

565© 

12 

158 

regel 

5660 

86 

107 

regel 

5670 

191 

120 

regel 

5680 

216 

187 

regel 

5690 

219 


EPROM’S ƒ 16,40 



(Nr. 1000) 

Eprom's 2764 - 250 nano/sec (8k) 

EPROMWISSER BOUWKIT 
(Nr. 612) ƒ 49,60 

Bouwset om 12 eprom’s te wissen 
(4-/-5/10 min.) wistijd 

STAR PRINTER SG-10 ƒ1050,- 

Printer met new letter quality 

Bestellen bij Gima Print Service 
(077-70937), Postbus 186, 

5900 AD Venlo door overmaken 
op bankrek. 457759739 Amro 
(giro bank 1050085) of onder 
rembours. Ook na 18.00 uur 
bereikbaar. 


BEL 077-70937 


PRINT SERVICE 


ROMEXTENDER ƒ 32,35 v 

(Nr. 100) 

Printje om een nieuwe kernal extra te plaatsen 




ROMEXTENDER ƒ 37,80 
(Nr. 150) 

Printje om vier nieuwe kernal's extra te plaatsen 






PB 186 5900AD Venlo - Tel. 077-70937 'LJLMJËJÊLMJ 

Postgiro 4848454 Alle prijzen excl. BTW en ƒ 5,- verzendkosten 


: 
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regel 

5700 

199 

regel 

6315 

23 


regel 

6740 

198 

regel 

7100 

164 

regel 

5710 

250 

regel 

6320 

121 


regel 

6745 

128 

regel 

7110 

156 

regel 

5720 

214 

regel 

6325 

86 


regel 

6750 

101 

regel 

7120 

27 

regel 

5730 

25 

regel 

6330 

137 


regel 

6755 

1 19 

regel 

714© 

175 

regel 

5740 

90 

regel 

6340 

89 


regel 

6760 

22 

regel 

7150 

1 16 

regel 

5750 

13 

regel 

6350 

73 


regel 

6765 

123 

regel 

7160 

84 

regel 

5760 

90 

r egal 

6360 

39 


regel 

6770 

209 

regel 

7170 

153 

regel 

5770 

13 

regel 

6380 

92 


regel 

6775 

122 

regel 

7180 

231 

regel 

6000 

124 

regel 

6390 

198 


regel 

6780 

153 

regel 

7190 

6 

regel 

6010 

121 

regel 

6400 

13 


regel 

6785 

103 

regel 

7200 

96 

regel 

6020 

38 

regel 

6410 

234 


regel 

6790 

138 

regel 

7210 

80 

regel 

6030 

105 

regel 

6420 

0 


regel 

6795 

249 

regel 

7220 

10 

regel 

6040 

79 

regel 

6430 

129 


regel 

6800 

138 

regel 

7230 

223 

regel 

6100 

45 

regel 

6440 

136 


regel 

6805 

250 

regel 

7300 

177 

regel 

6110 

73 

regel 

6450 

112 


regel 

6810 

135 

regel 

7310 

248 

regel 

6120 

165 

regel 

6460 

105 


regel 

6815 

43 

regel 

7320 

87 

regel 

6130 

126 

regel 

6500 

28 


regel 

6820 

23 

regel 

7340 

39 

regel 

6140 

199 

regel 

6510 

191 


regel 

6825 

131 

regel 

7350 

97 

regel 

6 150 

80 

regel 

6520 

87 


regel 

6830 

93 

regel 

7360 

88 

regel 

6155 

131 

regel 

6530 

236 


regel 

6835 

137 

regel 

7370 

72 

regel 

6160 

207 

regel 

6540 

180 


regel 

6840 

89 

regel 

7380 

90 

regel 

6165 

35 

regel 

6550 

126 


regel 

6845 

73 

regel 

7390 

253 

regel 

6170 

198 

regel 

6560 

12 


regel 

6850 

39 

regel 

7400 

91 

regel 

6180 

20 . 

regel 

6570 

57 


regel 

6855 

107 

regel 

7410 

71 

regel 

6190 

198 

regel 

6580 

71 


regel 

6860 

198 

regel 

7420 

185 

regel 

6200 

1 16 

regel 

6590 

59 


regel 

6865 

13 

regel 

7500 

74 

regel 

6210 

186 

regel 

6600 

212 


regel 

6870 

234 

regel 

7510 

55 

regel 

6220 

185 

regel 

6610 

13 


regel 

6B75 

190 

regel 

7520 

74 

regel 

6230 

199 

regel 

6620 

44 


regel 

6880 

246 

regel 

7530 

82 

regel 

6240 

17 

regel 

6630 

142 


regel 

6990 

62 

regel 

7540 

188 

regel 

6250 

1 13 

regel 

6700 

45 


regel 

7000 

92 

regel 

7550 

91 

regel 

6260 

91 

regel 

6705 

208 


regel 

7010 

229 

regel 

7560 

3 

regel 

6270 

185 

regel 

6710 

87 


regel 

7020 

89 

regel 

7570 

185 

regel 

6280 

138 

regel 

6720 

97 


regel 

7030 

40 

regel 

9000 

156 

regel 

6290 

131 

regel 

6730 

88 


regel 

7040 

104 

regel 

9010 

178 

regel 

6300 

23 

regel 

6735 

72 


regel 

7050 

80 

regel 

10000 

98 

regel 

6310 

4 1 












Een Nederlandstalig boek (168 
pag.), waarmee u niet alleen inzicht 
krijgt in wat er met Basic 3.5 alle¬ 
maal mogelijk is, maar ook veel bre¬ 
dere computertoepassingen be¬ 
handeld worden en randapparatuur 
en software uitgebreid aan de orde 
komen. 

Het onmisbare boek 
voor iedere C-16 
bezitter, compleet met 
vele 

pr ogr ammavoorbeelden, 
zoals een klein 
tekstberwerkings - 
programma. 


VAN START MET 
DE C-16 





% % ^ fa, fa,> 

My-—IMI-IJMir- 1 'IJ • >y «llÉyiMMyM . /,/ 


IN BASIC 3.5 


■ ; ' 7 -V 7/ faf 

% •% ^ 

•jc Sa la en Olaf Simoné 


VOOR DE C-16| 
ook bruikbaar 
voor PLUS/4 


Prijs 

ƒ 27,50 

plus ƒ 3,- 
verzendkosten 


%: % % % '"A 




Te koop bij Filmpost, Gameworld, 
Calimero, Verwijs en Stam, Collec¬ 
tief, PC-shop, Radiobeurs, Cafka. 


Van start met de C-16 in Basic 3.5 




2 


■ ■ . ■; :><:■■■ 


Direkt te bestellen bij: 

Infolist, Stationsweg 39b te Arkel 
01831-2904. 

Gironummer 3157656 tnv. Infolist. 
Alleen levering na vooruitbetaling of 
onder rembours. 
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regel 

10010 

120 

regel 

10400 

159 

regel 

10020 

236 

regel 

10410 

157 

regel 

10030 

21 

regel 

10420 

39 

regel 

10040 

159 

regel 

10430 

8 

regel 

10050 

147 

regel 

20000 

204 

regel 

10060 

59 

regel 

20030 

69 

r egel 

10070 

167 

regel 

20060 

20 B 

regel 

10080 

26 

regel 

20070 

171 

regel 

10100 

127 

regel 

20080 

55 

regel 

10 110 

164 

regel 

20100 

222 

regel 

10120 

116 

regel 

20120 

134 

regel 

10130 

236 

regel 

20125 

252 

regel 

10200 

147 

regel 

20126 

93 

regel 

10210 

1 44 

regel 

20130 

9 

regel 

10220 

139 

regel 

20140 

109 

regel 

10230 

149 

regel 

20150 

60 

regel 

10240 

68 

regel 

20170 

162 

regel 

10250 

147 

regel 

20190 

163 

regel 

10300 

84 

regel 

20200 

123 

regel 

10310 

23B 

regel 

20220 

218 

regel 

10320 

37 

ready. 




Decoder/Hex 


Zet decimale en Hexadecimale getallen om met vermelding van 
de Hi- en Lowbyte en berekent tevens sprongadressen. Van 
Wim Wubs uit Stadskanaal, die reeds eerder bv. Ma-Ba Monitor 
inzond. 


0 rem (de)coder 64 door wim wubs geld 
erselaan 90 9501-re stadskanaal **c 
=info** 

1 printchrtl14)spoke532B0,0ipake532Bl 
,0:gosub38 

2 s=54272sb = 4sts=16sc=bidimd(b> 

3 print" tl .blauwKneerlSersaft 64 Cneer! 
Wim Wubs Cneer 3Stadskanaa1 Cneerliu 

n i '85" 

4 print"CGROEN!C4xneer!Crechts!A. (Da 
)coderen + hi- en lo byte" 

5 print"[neer !CrechtslB. Berakenan va 

n adres-offsets"sprint" C2xneer!C4xrecht 
slVoer ’x' in voor exit" 

6 i nput"C3xn«arIC4xrachtslUw kouze"jk 
*s ifk*< >"a"andk*< >"b"andk*< >"x"then 
pr int u C4xap] 11 i gatoi 

7 gosub38s print"CGROEN!C4xnaar!Crechts1 
Begin bij hexadecimaal met ’*’"sifk 
*>"a"then29 

B i nput“CHDME!CBxneer 1Crechts!Adres i “ 

S i*sifi*=""thenB 

9 t1=10it2=tssrem *** invoer controle 

+ decoderen 

10 dec=0ia*="" s q = len(iS)i1=qiiari»ltoq 
sx$=mid$(iS,i,i )sif*$«" "thenl=l-li 
x* = " " 

11 ifx*="$"thentl‘=tsit2=10il“l-lix*“"” 

12 a*=a*+x$■next■hb*=at■a=val(a*> 

13 fori=ltolix*“mid0(a4,i,i)ix=val(x *) 
s y = x s ifx*>"9"thenx=asc <x*)-55srem a 

>10 

14 ifkt="a"and <x> = tlory> = tlora>65535or 
(t l=tsan’dl >4) )thengosub39igotoBsram 

a 

15 if k* = " b"and (x>=tlory>=tlora>65535or 
(tl=tsandl>4))thengosub39ireturnsrem 

b 

16 dec=dec+x*tlt(l-i)inaxtiifk*“"b"orz 
= 1 thenr eturn s rem vervolg adres-offs 
et 

17 iftlOieth en print " C2x naar ICrechtsld 
ecimaal s "decigosxib35sgoto24 

IS rem *** —> hex (coderen) 

19 tl“10it2=tsihb*=""sprint"C2xneer!Crecht 
slgecodaerds "j 

20 ift2tb>decthenb=b—lsx=bsgoto20srem 
zoek hoogste macht 


21 d(x>=int <dec/t2tx> sdec = dec-d(x)»t21' 

Xsx=x-1sifx>=0then21srem bepaal del 

er 

22 ■ford=bto05tep-lid*=right*(Btr*(d(d> 

) , 1> s ifd(d)>9thendt=chri (55 + d (d)) t rem 
a-f 

23 printd$;s hb$=hb4+d*Inex1 1 printsifk* 

="a"thentl=tsst2=10sl=len(hb*)igosub 
35 

24 print"Cl.rood!C2xneerlCrechtslCRVS-aanl 
VCRVS-ui11 ervol gen of terug naar CRVS-a 
anlMCRVS-uitlenu ?" 

25 getvtsifv*=“m"thenrun 

26 ifv*="v"thentl=0st2=0sdec=0sb=csi*= 

" " s g o t o 7 

27 goto25 

28 rem *** adres offset *** 

29 print"t2xneerlCrechtBl0ffset bereke 
nings"s if k*=" k" t henprint"ICLR-HOME]" 
s end 

30 input 11 C2xneer!CrechtsIAdras ls "jl* 
sgosub9sal=decsifal=0thenprint"C4xop!" 

s goto30 

31 input"Cneer 1 Crecht»3Adres 2s "ji*sgosub 
9sv‘=abs(al-dec) s ifdec“0thenprint"C3xopl' 
s goto31 

32 pr int"C2xneer ICrechts10ffsst decima 
als"vsdev=vsiftl=10orv=0then24srem 
dan niet coderen 

33 pr 1 nt"Cneer 1Crechts!0ffset gedecode 
erds "|stl=10st2“tssgoto20 

34 rem «** hi/lo byte bepaling *** 

35 if1<3thenreturn 

36 z“lsi*»left*(hb*,l-2)sh*-i*slb*=hb* 
sgosubl0shb=decs i*»right*(lb*,2)sgosub 
10 

37 print"C2xneer!Crechts!1 o byte "i*" 

= "decsprint"Crechts!hi byte "h*" ■" 
hb s z“0 s return 

3B pr int"CCLR-HOME!Coranje!CRVS-aanlC12 xbp 
at 1 e.1 (De) coder 64C15xspatie!"s return 
srem titel 

39 pokes+24,15spokes+5,4Bspokes+6,170s 

pokes+l,30spokes+4,17spokes+4,16sreturn 

«tl EINDE LISTING *** 
syntax checksums decoder 


regel 

0 

128 

regel 

20 

106 

regel 

1 

167 

regel 

21 

10 

regel 

2 

109 

regel 

22 

150 

regel 

3 

106 

regel 

23 

17 

regel 

4 

240 

regel 

24 

100 

regel 

5 

203 

regel 

25 

206 

regel 

6 

206 

regel 

26 

241 

regel 

7 

1 14 

regel 

27 

240 

regel 

8 

89 

regel 

28 

193 

regel 

9 

99 

regel 

29 

202 

regel 

10 

216 

regel 

30 

59 

regel 

1 1 

133 

regel 

31 

253 

regel 

12 

5 

regel 

32 

98 

regel 

13 

104 

regel 

33 

226 

regel 

14 

1 12 

regel 

34 

92 

regel 

15 

63 

regel 

35 

242 

regel 

16 

87 

regel 

36 

216 

regel 

17 

38 

regel 

37 

83 

regel 

18 

44 

regel 

38 

71 

regel 

19 

220 

regel 

39 

112 


ready. 


liü 
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maar dit is een kwestie van tellen, je ziet alleen de muren en niet 
jezelf, tot het te laat is. Door Steven Hessing. 


1 rem ddolho-f 7 commodore-64 

2 rem door steven hessing 

3 rem uit niimegen 

4 rem 

10 poke53280,0: poke53281,0» pake646, S 
20 pr int ” CCLR-HOME 3 C7xneer 3 ": fort = ltol 
6 s r eadgti pr inttab (3) g * s n e x t 
30 t i*=" 000000":p=1353:pokep,2:poke196 

2,5 

40 getaSi i-f at = " 11 then40 
50 ifa$="a"thenp=p-ligoto90 
60 i-fa*="s"thenp = p + lsgoto90 
70 i-fa*=>"a"thenp-p + 40!goto90 
80 i -f ai= “ w 11 1 h enp = p-40: got o90 
90 i-f peek <p > =102then 120 
100 ifp“1962ther>160 

110 goto40 

120 pokep, 160sprint"tHOME 31ammer u bent 
m 1 sgestapt " 

130 print"u bent tot aan het blokie (zl 
e kaart)" 

140 print"gekomen" 

150 t-val (ti*)sprint "maar u hebt al " t" 
punten gehaald":end 
160 print"C HOME 3" 

170 t •» va 1 < t i * ) > i -f 1 50-t< @thenpr i nt “u heb 
t er te lang over gedaan"st=0 
180 ta=ta+15@-tiprinf'goedzo u hebt het 
gehaald" 

190 print“en dat nog wel in "t" seconde 

n " 

200 pr i nt"hier voor krijgt u "150~t" pun 
ten " 

210 prinf'wat uw totaal brengt op "ta" 
punten" 

220 print"Cneer3 druk een toets" 

230 g e t a $ t i-fa*=""then230 

240 restoresgoto20 

250 d a t a " ««««SS ««««««SSSSSSSSSSSSSS" 

260 data" ««««C 3xspatis3ll!*m«[3xspatle3 

««««" 

270 data"S8«S*« «S«S8S*»t 3 h spat i e 3 «C 2x sp at i e I 

««ar 

280 dat•"««««[ 2x sp at i e 3 «»S®«[ 2x sp at i e 3 « 

«SC 2x spat iellSa" 

290 data"iMIi[3xspatie3«»i SS««SS« ««" 

300 data ««««««t 6x spat i e 3 *S«««SSC 2x spat ie 3 
«" 

3 10 data'«««««««««««SS««*««« SS" 

3 20 data" MSS4SKW1 3x ■ pa t i e 3 «««««««««t 2x sp a t i 
«“ 

330 data"»**** « 2x sp at i e 3 ««'• 

340 data''»»» « «««««««C 2x spa t i e 3 S8SSSS" 

350 data"***»* « C 9x sp a t i e 3 ««««" 

360 data" «««SSL 2x sp at i e 3 SS««««SS«S*SSSS««««" 

3 7 0 data' «SSC 2x sp a t i e 3 ««««««««««««««SS” 

380 data”l8i «««SS«8S««««C3xspatie:]««SS" 

390 data"ML12xspatie)i ««SS" 

400 data" ««««««««««SS«SS«SSC 2xspatia3 «««" 


*** EINDE LIST1NB *** 


syntax checksumi 


regel 

1 

250 

regel 

50 

40 

regel 

2 

169 

regel 

60 

57 

regel 

3 

206 

regel 

70 

1 15 

regel 

4 

143 

regel 

80 

113 

regel 

10 

247 

regel 

90 

109 

regel 

20 

9 

regel 

100 

157 

regel 

30 

98 

regel 

110 

237 

regel 

40 

49 

regel 

120 

15 



regel 

130 

102 

regel 

270 

219 

regel 

140 

227 

regel 

280 

219 

regel 

150 

44 

regel 

290 

129 

regel 

160 

240 

regel 

300 

143 

regel 

170 

180 

regel 

310 

25 

regel 

180 

57 

regel 

320 

129 

regel 

190 

1 47 

regel 

330 

59 

regel 

200 

30 

regel 

340 

39 

regel 

210 

78 

regel 

350 

67 

r eg e 1 

220 

139 

regel 

360 

1 15 

regel 

230 

98 

regel 

370 

115 

regel 

240 

177 

regel 

380 

39 

regel 

250 

25 

regel 

390 

81 

regel 

260 

219 

regel 

400 

115 


ready. 


OUDE NUMMERS 
NABESTELLEN 


Reeds verschenen nummers zijn na te 
bestellen. Maar, helaas, NIET per brief, 
kaart of telefonisch. We leveren die 
oude nummers alleen bij vooruitbeta 
ling op onze giro 1585491. Jammer 
voor degenen, die ons al vroegen om 
toezending, maar helaas is dat admini¬ 
stratief niet te verwezenlijken, extra 
girokaarten maken en sturen zou echt 
te veel kosten. De prijs is ƒ 6,75 per 
nummer (dus aangeven welk num¬ 
mer). • 

_J 
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Raamnaam 


Tekent van een ingetypte naam een "venster”, ingezonden door 
Steven Hessing 


A A 


mm 


rem raamnaam / commodore-64 
rem door steven hessing 
rem uit niimegen 
rem 

poke532B0,0:poke53281,0: diml (13) 
input"CCLR-H0ME3Cneer 1 wat is uw na 
a m " ; n * 

a = a+1 ll <a)=peek(1081+a) : i-f 1 (a)< >321 her 
30 

a=a—1: input" welke kleurcode (getal 
) " s g : poke646,g 
print" CCLR-HOMEl" 

h 1 = 1024:h2=1063:h3 = 2023:h4=1984 
■f orr = ltoa 

+ ort=hltoh2:poket+54272,g: poket, 1 (r 
> : next 

•f ort=h2toh3step40s pok et+ 54272, g: poke 
t,1< r)inext 

fort = h3toh4step-l:poket+ 54272, g: poke 
t, 1 (r):nex t 

■fort = h4tohistep-40: pok et+ 54272, g: poke 
t, 1(r):nex t 

hi=hl+41:h2=h2+39:h3=h3-41:h4=h4-39 
next 

getati i-fa* = ""thenl40 
print"CCLR-H0ME3" 
print"C10x neer 3 " 

poke54296,15:poke54277,0:poke54278, 
208:poke54272,223:poke54273,108 
fart=ltolen(n*) 
poke54276,17 

printtab((40-1 en( n* ))/2)"Cop 3"1 ett* 
(n$,t) 

poke54276, 16 

forq=0tol50:next 

next 

poke646, 1 

poke54296,15:poke54276,17:poke54277 

,190 

r eadh 

readl 

readd 

ifh=-1thenend 

poke54273,h:poke54272,1 

■forx=d-50tod-20:pokes, 136:next 

•fort = ltod-50:next: poke54273, O: poke5 

4272,0:poke54276,0 

goto250 

data34,75,250,43,52,250,51,97,375,4 

3,52,125,51,97 

data250,57,172,250 

dataSl,97,500,0,0,125,43,52,250,51, 
97,250,57,192 
i datal000,51,97,500 

' data-l.-l.-l *** EINDE L1STING *** 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


foe Vie vlieg; 


syntax checksum: raamnaam 

1 

56 

regel 

180 

226 

2 

169 

regel 

190 

51 

3 

206 

regel 

200 

10 

4 

143 

regel 

210 

50 

10 

230 

regel 

220 

170 

20 

107 

regel 

230 

130 

30 

23 

regel 

240 

148 

40 

77 

regel 

250 

64 

50 

112 

regel 

260 

207 

60 

142 

regel 

270 

211 

70 

155 

regel 

2B0 

203 

80 

96 

regel 

290 

136 

90 

1 1 1 

regel 

300 

93 

100 

233 

regel 

310 

122 

110 

26 

regel 

320 

4 

120 

150 

regel 

330 

32 

130 

130 

regel 

340 

63 

140 

98 

regel 

350 

59 

150 

112 

regel 

360 

252 

160 

135 

regel 

370 

51 

170 

61 

regel 

380 

245 


ready. 


Een kleine zwarte stip met geluid op het scherm voor wie houdt 
van electronische bugs. Door Antonio Termeer uit Bemmel. 



1 rem de vlieg / vic 20 

2 rem door antonio termeer 

3 rem uit bemmel 

4 rem 

20 pr intchrt(147) :poke36878, 15:poke368 
79,30:b=7911 

40 a=(rnd(1)>.5):ifa=0thena=-22 
60 ifrnd(l)>.5thena=-a 

80 pok eb,32: ifa + b>8185ora + b<76B0then4 
100 b=b+a:pokeb,81:pokeb+30720,0 
1 10 a = sgn(a) :poke36B76, 140 + a:goto4 


*** EINDE LISTING *** 
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Parcoursrace 


Een auto-race spel, waarbij de nadruk ligt op het spel, en het 
behendig manoevreren met de joystick. De baan ligt vast, maar 
kun je veranderen door zelf wijzigingen aan te brengen in de 
regels 50 tot 72. Werkt met de joystick in poort 2. Kom je tegen 
de kant, dan heb je pech, want dan moet je weer opnieuw 
beginnen. Aan het eind van de race, krijg je te zien hoe lang het 
heeft geduurd, voordat je bij de finish kwam. Een leuk spel voor 
de beginnende computeraar van H.Broekman uit Langeveen. 


1 rem parcoursrace / commodore-64 

2 rem door h broekman 

3 rem uit langeveen 

4 rem 

9 rem******variabelen+sprite********* 

** 

10 ti*=" 000000" :1=2:x=30:y=60:v=53248: 

pokev+21|lipoke2040,13:pokev+39,0 
20 forn=0to62:readq:pokeB32+n,q:next 

24 renimmparcDursttmmtmtUm 

* 

25 print"CCLR-HOME3" 

50 print" r-r-r- 

-1 " 

51 print"IC4xspatie3IC9xspatie3IC15xspatie 
3 I " 

52 print" IC4xspatie3IC9xspatie3IC15xspatie 
3 I " 

53 print"I[4xspatie3IC9xspatie3IC15xspatie 
] I " 

54 print" I C4xspatie3IC4xspatie] I C4xspatie] 

I C 5 x sp atie 3 U - 1C4xspatie3l" 

55 print" IC4xspatie3IC4xspatie]IC4xspatie3 
I C 5x spatie 3 I E4xspatie3 I C4xspatie3 I " 

56 print" I C4xspatie3I C4xspatie] IC4xspatie3 
I C5xspatie3 I C4xspatie]IC4xspatie3 I" 

57 print"IC4xspatie3IC4xspatie]IC4xspatie3 
I C 5x sp atie]IC4xspatie3IC4xspatie3I" 

58 print" I C4xspatie3 I C4xspatie3IC4xspatie] 

ICSxspatie]IC4xspatie]IC4xspatie3I" 

59 print" I C9xspatie3I[4xspatie3ICSxspatie] 

I C4xspatie3It4xspatie]I" 

60 print"IC4xshift-SPATIE3C5xspatie3IC2xsp 
atie]C2xshift-SPATIE3 I C 5x sh i f t-SP AT IE 3 

I C 4x shif t-SP ATI E3 I C 4x sh i f t-SPAT IE 3 I " 

61 print"IC3xshift-SPATIE]C6xspatie]I 

C3xshift-SPATIE]IC5x sh ift-BPATIE3IC4xsh 
ift-SPATIE3IC4xshift—SPATIE]I" 

62 print" 1- K C3xshift-SPATIE3 I 

C5x shi-f t-SPAT IE 3 I C4xshift-BPATIE3 I C4xsh 
i-ft-SPATIE] I " 

63 print"IC5xshift-SPATIE][7x5patie3C2xshi 

ft —SPATIE3I C4xsh if t-SPATIE] J -U4xsh 

if t-SPAT IE] I " 

64 print"IC3xshift-SPAT IE3C7xspatie3C4xshi 
ft-SPATIE]ICshift-SPATIE] [Bxshift-SPAT 
IE 3 I C4xshift-SPATIE3 I " 

65 pr int " I C 14xshift-SPATIE3IC2xshift-SPAT I 
E3 C7xshift-8PATIE3I[4xshift-BPATIE3 

I " 

66 print"IC14xshift-SPATIE3IC3xshift-SPATI 
E3 C6xshift-SPATIE3IC4xshift-BPATIE 3 

I " 

67 print" I C 4x sh i f t-SPAT IE 3 U- 

-1 C3xshift-SPATIE]I C4xshitt-SPATIE 3 


72 print" l - 


68 print"IC4xshift-SPATIE3J- 


78 rem******joystick****************** 

* 

79 i=peek(56320) 

BI ifnotjand 16then1=1 +1 
82 ifjand 1theny=y + l 
B3 ifjand2theny=y-l 
B4 ifjand8thenx=x-1 
85 ifjand4thenx=x+1 
B6 pokev+0,xspokevf1,y 

100 rem******botsingen****t************ 

* 

101 i fx> = 235andy>= 190t henB00 

102 ifpeek(53279)and1<>32then600 

103 goto79 

600 s=54272iforw=0to24ipokes+w,0snextipoke 
s+ 1 ,20spokas+5,5ipokes+15,255 
605 pokes+24,15ipokes+4,129 
610 x“30 j y=60!1=2saa=aa+ligoto79 
799 rem**t***resultaat***************** 

* 

B00 print"CCLR-HOME3" 

805 pr int"Cneer 3C12xspatie3o v e r z 1 
c h t" 

810 print"Cl2xspatie] 

B15 print"C3xneer3C2xspatie]ie hebt het 
parcour in ”r ight* (ti*,3)" sec." 

820 printspc(12)"C2xspatie3gereden" 

825 s=54272iforw=0to24«pokes+w,0inext«poke 
s+ 1 ,100ipokes+5,50ipokes+15, 10 
B30 pokes+24,15ifort»1to255ipokes+1,tipoke 
s+4,33:pokes+4,lBtnext 
B35 pr1n11ab(18>"Cneer 3 + " 

840 pr inttab (11)"Cneer3"|aa" botsingen" 

B50 pr i nt " C5xneer 3C12xrechts3nog eens ( 

B55 wait198,1:run 

1999 rem******sprite data’s************ * 

2000 dat 30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,1,255,192,3,255,224,7,0,112 

2010 data7,0,112,7,0,112,15,255,248,31,2 
55,252,31,193,252,31,255,252,14,62, 

56 

2020 datal4,28,56,14,B,56, 14, 0,56, 0, 0 , 0 , 
0,0,0 

*** EINDE LI5TING *** 



I " 

69 print* 

70 print* 
7 1 pr int* 


C3xshift-SPATIE3IC4xshift-SPATIE3 

1 I C25xshift—SPATIE] I **** I " 

IC25xshift-SPATIE3IstopI" 
lC25xshift—SPATIE3I****|" 






























regel 1 
regel 2 
regel 3 
regel 4 
regel 9 
regel 1 © 
regel 2© 
regel 24 
regel 25 
regel 5© 
regel 51 
regel 52 
regel 53 
regel 54 
regel 55 
regel 56 
regel 57 
regel 58 
regel 59 
regel 6© 
regel 61 
regel 62 
regel 63 
regel 64 
regel 65 
regel 66 
regel 67 
regel 68 
regel 69 
regel 7© 
regel 71 
regel 72 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


ready. 


N atuur wonder 


Voor de technici en wiskundigen onder ons een handige 
hulp voor het berekenen van de standaard wiskundige 
formules. Ik denk zelfs dat de meeste Havo-scholieren er 
bij hun studie ook wel plezier aan kunnen beleven. Marco 
Miltenburg tekende voor dit programma. 



5T- 


1 rem natuurwonder / commodore-64 

2 rem marco miltenburg 

5 rem driebergen / ©3438-14961 
k rem 

5 print " CCLR-H0ME3",chr*<14) 

> print"m * massa"«print"d - dichthei 

d" 

print"v = volume"«print"g = gewicht" 
print "z = zwaartekracht"s prinf'k = 
kracht" 

prinf's = spanning van gas" 
printsprint«print "maak uw keuze";! 
input a$ 

if ai=" m '* then 110«if a$ = " d " th en 19© 
if a*="v" then 270: i-f a* =" g " then35© 
i-f a $ = " z " then 43©si-f a* = "k"then51 © 
i-f a * = " p " then 58©«if a*= " a “ t hen 67© 
if a*="s"then 750«clrsgoto 63999 
gosub 83© 

prinf'massa = dichtheid * volume" 
printsprinf'dichtheid in kg/dm3";s 
input a 

inpuf'volume in m3";b 
c = a *b 

print"de massa is ";c" kg" 
for w=l to 350©«next w 
run 

gosub 83© 

print"dichtheid «* massa « volume" 
print«print"massa in kg iinput a 
inpuf'volume m3 ";b 
c*=a/b 

prinf'de dichtheid is ";c*;"kg/m3" 

for w—1 to 35©0«next w 

run 

gosub 83© 

print"volume = massa « dichtheid" 
prin.t «print "massa in kg" ;« input a 
input"dichtheid in kg/m3 ";b 
c«a/b 

prinf'het volume is " ; c; 11 m3" 

for w=l to 3500snext w 

run 

gosub 830 

pr int" 1 gewicht «= massa * zwaartekrac 
ht" 

pr i ntiprint"massa in kg ";« input a 
inpuf'zwaartekracht in newton/kg 
b 

c«a*b 

prinf'het gewicht is " ; c; “ newton" 

for w=l to 350©«next w 

run 

gosub 83© 

pr int"zwaartekracht = gewicht « mas 
sa" 

pr int«print"gewicht in newton "jiinpu 
a 

input"massa in kg ";b 
c = a/b 

print"de zwaartekracht is ";c;" new 
ton/kg" 

for w=l to 350©«next w 
run 

gosub 83© 

prinf'kracht = druk * oppervlakte" 
pr int«print"druk in newton/m2s i nput 
a 

c = a*b 

prinf'de kracht is ";c;" newton" 

for w=l to 350©snext w 

run 

gosub 83© 
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590 print"druk = dichtheid * hoogte * z 
waardekracht" 

600 print:print“de dichtheid in kg/m3 " 

;;input a 

610 input"hoogte in m " s b 

620 input"zwaartekracht in newton/kg "s 
c 

630 d=a*b*c 

640 print"de druk is ";d;" newton/m2 

650 for w=l to3500:next w 

660 run 

670 gosub 830 

680 print"oppervlakte = kracht : druk" 

690 print:pr i nt"kracht in newton ";: input 


input"druk in newton/m 2 ";b 
c = a/b 

prinf'de oppervlakte is ";c;" m 2 
■for w=l to 3500: next w 
run 

gosub 830 

print"spanning = kracht : oppervlak 
te" 

pr i nt:print"de kracht in newton " 5 : 
input a 

input "oppervlakte in m2Cshi-ft — SPATIE! 
•' ; b 

790 c = a/b 

print"de spanning van het gas is "j 
c;" n / m 2 

for w=l to 3500:next w 
run 

printchrl(147):poke53280,0:poke5328 
1,0 

■for w=l to 500:next w 
printchr*(18)"C36xspatiel" 

printchrt (10) "C36xspatiel" 
printchr % (18)"C7xspatie]n a t u u r 
w o n d e rCBxspatiel" 

880 printchrt(18)"C36xspatie]" 

890 printchrS(18)"C36xspatiel" 

900 printsprint" (c) Commodor e-I n-f o " 

910 -for x = l to 3:printsnext 
920 -for w=l to 500:next w 
930 return 
940 end 


700 

710 

720 

730 

740 

750 

760 

770 

780 


800 

810 

820 

830 

840 

850 

860 

870 


*** EINDE LISTING *** 




I 


natuurwonder 




regel 

1 

168 

regel 

180 

1 38 

regel 

2 

250 

regel 

1 90 

40 

regel 

3 

201 

regel 

200 

39 

regel 

4 

143 

regel 

210 

137 

regel 

5 

25 

regel 

220 

158 

regel 

10 

250 

regel 

230 

37 

regel 

20 

238 

regel 

240 

234 

regel 

30 

171 

regel 

250 

58 

regel 

40 

139 

regel 

260 

138 

regel 

50 

44 

regel 

270 

40 

regel 

60 

17 

regel 

280 

39 

regel 

70 

34 

regel 

290 

137 

regel 

80 

38 

regel 

300 

164 

regel 

90 

31 

regel 

310 

37 

regel 

100 

41 

regel 

320 

175 

regel 

1 10 

40 

regel 

330 

58 

regel 

1 20 

23 

regel 

340 

138 

regel 

130 

141 

regel 

350 

40 

regel 

140 

53 

regel 

360 

159 

regel 

1 50 

36 

regel 

370 

137 

regel 

160 

203 

regel 

380 

84 

regel 

1 70 

58 

regel 

390 

36 


regel 

400 

61 

regel 

690 

26 

regel 

410 

58 

regel 

700 

1 56 

regel 

420 

138 

regel 

7 1 0 

37 

regel 

430 

40 

regel 

720 

169 

regel 

440 

175 

regel 

730 

58 

regel 

450 

104 

regel 

740 

138 

regel 

460 

228 

regel 

750 

40 

regel 

470 

37 

regel 

760 

188 

regel 

480 

1 18 

regel 

770 

163 

regel 

490 

58 

regel 

780 

73 

regel 

500 

1 38 

regel 

790 

37 

regel 

510 

40 

regel 

800 

2 1 6 

regel 

520 

132 

regel 

8 1 0 

58 

regel 

530 

65 

regel 

820 

138 

regel 

540 

36 

regel 

830 

172 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

151 

58 

138 

40 

1 87 
210 
240 
85 

20 

157 

58 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

840 

B50 

860 

870 

880 

890 

900 

910 

920 

930 

940 

7 

94 

94 

12 

94 

94 

66 

34 

7 

142 
1 28 

regel 

660 

1 38 




regel 

regel 

670 

680 

40 

1 48 

r ead y 

• 



Prieme-etallen 


LISTING programma : pr i emget al 1 en 

input "vanaf waar, tot waar"}vw,tw 
if tw<vw or vw <1 then 6 
for a=vw to tw 
20 for h = 2 to int(sqr(a)) 

30 if a/h=int(a/h) then 60 
40 next h:printaj 
60 nex ta 

*** EINDE LISTING *** 


6 

7 

10 


p r i emg e t a 1.1 en 




regel 

6 

109 

regel 

30 

188 

regel 

7 

1 80 

regel 

4 0 

25 

regel 

10 

1 12 

regel 

60 

195 

regel 

20 

163 

r ead y. 
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MMmk 


'<PS~ 
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Tikkertje 


Dit korte spel voor twee personen is toch amusant (2 joysticks 
nodig) In een vierkant moet je elkaar tikken, we misten eigenlijk 
een obstakel om je achter te verschuilen en ook de toets om 
eruit te komen. Door Dhr. Reinders Wildervank. 


1 rem tikkertje / commadore-64 

2 rem door reinders 

3 rem uit wildervank 

4 rem 

10 poke53265,0«fori=B32toB95«readqipoke 
i ,qinest 

20 fori=8000to8046«readqspokei,q«next 

30 fori=B96ta959«readqipokei,qsnext«sys 
8000 

40 x=30iy = 6Sia**250ib='225i vv=5« cv=Si v*5 
3248ir*=13ipakev,xipokev+l,yipakev + 2 

» a 

50 pokev+3,bspakel064, 112«fori=1065tol 
094«pokei,64inext«pokel095,110 

60 fori=1104tol944step40«pokei,93ipoke 
i + 3 1,93s nex t 

70 fori=55376to56216step40«pokei, lipoke 
i +31,1inex t 

80 forlal9B5to2014ipokei,64«nextipaksl 
984, 109 1 poke2015, 125■pake56291,1 

90 forl=55336to55367«pokei, i«next«fori 
=56256ta56295«pokei,linext 
100 a* ( 1 ) =»" b 1 auw is hem" t a# (2) “"groen i 
s hem"iw=2 

1 10 print "CH0ME]C2xneerD"tab(35)"t" i print 
tab (35)"i"sprinttab(35)"k"iprinttab ( 
35)"k" 

120 printtab(35)"e"iprinttab(35)"r"«print 
tab(35)"t"«printtab (35)" 1" 

130 printtab(35)"e"«print"CneerD"tab(33 
) “ daar"«print“Cneer]"tab(32)"reind 
ers" 

140 printtab (34)“ soft"lprint"CHOME3"tab< 
10)aS<l>ipakev+17,27 
150 gosub200 


160 ifpeek(v + 30)=3thenprint"[HOME 3"tab< 
10)a$(w>i ifpaek (v + 30)^^thenH^wrl:if 
w=3thenw=l 
170 1 fw= 11henr = 14 
180 ifw“2thenr=13 

190 pok0V,x«pokev+l,yipokav+2,aipokev+3 
,b«poke2040,ripoke2041,27-rigotol50 
200 p l“peek(56320) 

210 if (plandl)=0theny = y-vvi ify=<64theny 
= y +vv 

220 if(pland2)«etheny-y+vvi1f y m >226then 
y=y-vv 

230 if (p1and4)"0thenx = x-vviifx-<29thenx 
= x +vv 

240 if (p 1 andB) “0th»nx“x + vvi ifx*>254thon 
x = x-vv 

250 p2°>paek ( 56321 ) 

260 if (p2andl)=0thenb=b-cv«ifb = <64thenb 
270 if (p2and2)=0thenb = b+cv« i.fb= >226then 
b=b-cv 

280 if (p2and4)=0thena=a-cviifa=<29thena 
= a + c v 

290 if (p2and8)=0thena“a + cv«ifa»>254then 
a-a-cv 
300 return 

310 data62,,124,62,,124,62,,124,62,,124 
,1,129,128,1,129,12B,1,255,128 
320 data3,60,192,15,255,240,63,255,252, 

63.60.252.207.195.243.195.255.195 
330 data 192,255,3,,66,,,66,,,129,,,66, 

,,66,,,,,,,,,32,68,229,169,0,141,33 
, 208 

340 dat al 41,32,208,169,14, 141,249,7, 169 
,13,141,248,7,169,3,141,21,208,169 
350 datal,141,134,2,169,6,141,40,20B,16 
9,3,141,39,208, 169,234, 141,40,3,96 
360 data62,,124,62,,124,62,,124,62,,124 
,1,129,128,1,129,12B,1,255,128 
370 data3,60,192,15,255,240,63,255,252, 

63.60.252.206.195.115.195.255.195 
380 data 192,255,3,,66,,,66,,,129,,,66, 

.,<!><!>. 

*»* EINDE LISTINB *** 


Moe van het overtikken? 

Neem Uw gemak, neem een 

INFOLIST 

cassette of diskette 


En ze werken allemaal, dus u krijgt een macht 
aan software voor een vriendelijke prijs. Met 
zo’n cassette is er in één keer al een aardig 
begin voor uw programma-bibliotheek en bo¬ 
vendien kunt u aan de hand van de gegeven 
programma’s daar zelf weer uitbreidingen op 
maken. 

Beschikbaar voor de „64” 

uit no. 1 + 2 + 3 van ’84 —> I 
uit no. 4 + 5 van ’84 II 

uit no. 1 + 2 van ’85 III 

uit no. 3 + 4 van '85 —> IV 
per diskette ƒ 27,50 
per cassette ƒ 22,50 



NFOLIST 


LEZERSSERVICE 


De listings uit dit en eerdere nummers van Commodore-lnfo zijn 
ook op cassette en micro-floppy te verkrijgen. Dat scheelt de 
lezer de tijd en ergernis van het overtypen, hetgeen tenslotte zelfs 
met onze listtest nog een boel werk kan betekenen, om nog maar 
niet te spreken van ergernis en frustratie. 

De lezersservice van Commodore-lnfo wordt verzorgd door 
Infolist uitArkel, Stationsweg 39B, 01831 -2904, maar ook op de 
redaktie kunt u voor vragen meestal wel terecht 02152-63431. 

Bestellen kan alleen bij vooruitbetaling door overmaken van ƒ 22,50 of ƒ 27,50 op 
giro 3157656 Infolist te Arkel met vermelding van het infolistnummer en natuurlijk 
uw naam en adres. We sturen u de cassette direkt na ontvangst van uw overmaking 
per post op, met een kwitantie. 


Wilt U bij bestelling aangeven no. I, II, III, IV. 
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syntax checksum» 

t i kkertie 


regel 

1 

167 

regel 

180 

213 

regel 

2 

31 

regel 

190 

114 

regel 

3 

120 

regel 

200 

70 

regel 

4 

143 

regal 

210 

207 

regel 

10 

25© 

regel 

220 

254 

regel 

20 

31 

regel 

230 

206 

regel 

30 

115 

regel 

240 

0 

regel 

40 

187 

regel 

250 

72 

regel 

50 

B2 

regel 

260 

55 

regel 

60 

243 

regel 

270 

102 

regel 

70 

243 

regel 

280 

54 

regel 

80 

41 

regel 

290 

104 

regel 

90 

3 

regel 

300 

142 

regel 

100 

76 

regel 

310 

39 

regel 

110 

158 

regel 

320 

237 

regel 

120 

39 

regel 

330 

144 

regel 

130 

33 

regel 

340 

22 

regel 

140 

88 

regel 

350 

6 

regel 

150 

31 

regel 

360 

39 

regel 

160 

152 

regel 

370 

234 

regel 

170 

213 

regel 

380 

90 


ready. 


BEELDVORMING 

De inzendingen voor onze prijsvraag gingen voor een 
deel in op "beeldvorming”, waar we naar vroegen. 
Mooie, vreemde, leuke beeldverschijnselen bereiken 
ons al van veie kanten en we geven er hier alvast een 
paar. 


Schermschurk 


Dit verandert na 45 seconden je letterset en toont een kleine 
demo, waarbij we de M niet erg fraai vonden. Maar de truc is wel 
fraai, van Sander Postma uit Driebergen (11 jaar). 


1 ram schermschurk / commodare-64 

2 rem door ssnder postma 

3 rem uit driebergen 

4 rem 

10 poke0,47iprint"tCLR-HOME345 sec. ge 
duld a.u.b. " 

20 poke56334 , peek(56334>and254 1 poke 1, 
peekdland 251 

30 fori“6+5to56334/5ipakei,peek(i+4505 
6)and60inext 

40 pokei,peek(l)ar4apoke56334,peek(563 
34)or1s poke53272,24 

50 rem************ * *demo* * ** ** * ******* 

60 a*="CWIT3commodore info computerbla 
d"ifory=ltolen(«*)ibi^mid*(a*,1, y > 

70 printb*ifori"*ltol50inextiinexty 


•*** EINDE LISTING *** 


syntax checksums schermschurk 


regel 

1 

140 

regel 

30 

65 

regel 

2 

84 

regel 

40 

125 

regel 

3 

88 

regel 

50 

76 

regel 

4 

143 

regel 

60 

123 

regel 

10 

145 

regel 

70 

5B 

regel 

20 

227 





ready. 



(Sub) Routine om op een leuke manier tekst van het scherm te 
wissen via een reeks sterretjes in een spiraal. Leuk te gebruiken 
in eigen programma’s door J.C. van Iterson, Rijnsburg. 


1 

rem 

scherm subroutine / commodore 


64 


2 

rem 

door i.c. van iterson 

3 

rem 

riinsburg 

4 

rem 


5 

rem 

variable t is schermcode teken 

6 

rem 


10 

t»42« gosub30i t**32i gosub30 

20 

print"!HOME]"iend 

30 

b“1064!C='40!d=>25te=40if=24tgoto50 

40 

f orx 

=atobstepgspakex,tsnextsreturn 

50 

c-c- 

2 :a = b-40ïb= ! a+csg M l!gosub4© 

60 

if c = 

38thenc=39 

70 

d = d- 

2 :a = b + l:b”a + 40*d!g = 40« gosub40 

80 

i -f d< 1 then return 

90 

e = e- 

2 1 a = b+40:b=a-e sg = -1sgosub40 

100 

f=f- 

2 sa=b-lib=a-40*f:g = -40igosub40 

110 

goto50 EINDE L j STINB *** 


Lange Letter 


Vergroot een letter die ingetikt wordt. 

Door Bob Siefkes uit Beuningen, die een erg leuk effect bereikt. 
Dit is uit tebouwen tot vergroting van meerdere letters of 
misschien zelfs een reeks letters achter elkaar. De basis stof 
voor een lichtreclame programma dus. 


1 rem lange letter / commodore-64 

2 rem bob siefkes 

3 uit beuningen / 08897-1225 

4 rem 

10 print" CCLR-HOME3CRVS-aan3C2xspatie3 
toets karakter in en ik vergroot he 
mC2xspatie3CRVS-uit3" 

20 geta»!ifa*=""then20 

30 print"CHQME3C3xneer3Crechts3";a*sa= 
peek(1145) 

40 fors*0to7 

50 poke56334,peek(56334)and254!pokel, pe 
ek (1)and251 

60 r=peek(5324B+S+(B*a)) 

70 pokel,peek(l)or4spoke56334,peek(563 
34)or 1 

80 f or i = 0to7 

90 p = 32s q=rand(2t(7-i))rifq=2f(7-i>then 

p = 160 

100 pokel358+i+s*40,pspoke55630+i+40*s, 

7 

110 nexti,s3goto20 **# EINDE LISTING *** 


ABONNEMENTEN 


Abonnementen kosten ƒ 55,- en 
voor een vol jaar Commodore-lnfo 
(10 a 11 nummers) is het verreweg 
het gemakkelijkste, wanneer u dat 
bedrag aan ons overmaakt op giro 
1585491 tnv. SAC Blaricum of op 
onze bank in België BBL nr. 
310050602562 











VRAGEN VAN 
GEBRUIKERS 

Ook nu weer gaat Jan Bodzinga in 
op de problemen van onze lezers. 
Zijn rubriek blijkt zeer populair, maar 
laat u dat niet weerhouden uw 
vragen of opmerkingen in te sturen. 
Ook tips en handigheidjes zijn 
welkom. 



TAB op de printer. 

Gerrit B. uit Hilversum kan met z’n 803 
prima overweg, alleen krijgt hij proble¬ 
men als er in de Basic-regels TABO 
opdrachten naar de printer gaan. De 
regeldrukker reageert niet zoals het zou 
moeten. 

Het is een bekend verschijnsel, dat de 
TAB( )-opdracht niet korrekt werkt op 
bepaalde printers, zelfs niet op de 
printers van Commodore. Maar, ge¬ 
lukkig is de oplossing erg simpel. 

De fout, die wordt gemaakt bij het 
printen in kolommen etc. is het ge¬ 
bruik van de functie TAB( ). Deze op¬ 
dracht is een aanwijzing voor de 
schermcursor, en niet voor de printer. 
Daarvoor moet het kommando 
’SPC()’ worden gebruikt. 

Deze opdracht gedraagt zich in grote 
lijnen hetzelfde als TAB(), maar is 
bedoeld zowel voor het scherm, als 
voor het schrijven naar printer, disk of 
tape. Het getal tussen de haakjes 
geeft het aantal spaties aan vanaf de 
eerste beschikbare positie. Staat de 
kop al halverwege de printregel, dan 
zal vandaar worden geteld, en niet 
vanaf het begin van de regel. 

Een paar tests op het scherm zullen dit 
nuttige kommando snel toevoegen 
aan je eigen Basic-idioom. 


Save-tip. 

Het komt nogal eens voor, dat -om 
welke reden dan ook- een stuk machi¬ 
netaal zo vast in het geheugen zit, dat 
er bij het ’SAVEN’ van dit programma 
geen ruimte meer beschikbaar is om 
een naam in te toetsen. Dit kan worden 
verholpen, door eerst in te typen: poke 
56,207. Dit werkt op de C-64. 

Deze tip kreeg ik van diverse kanten 
aangereikt. Bedankt. 

Diskette ID. 

Op het artikel over de disk-drive en 
floppy gebruik zijn nogal wat angstige 
reakties gekomen, van mensen die de 
waarschuwing om nooit een diskette- 
ID te veranderen, ter harte hebben ge¬ 
nomen. F. Eikelhof uit Nieuwenhagen 
en A.v.d.Nieuwenhuizen uit Rotterdam 
schrijven: 

'Ik heb van diverse schijven de identifi- 
katie veranderd. Is het mogelijk om de 
bij het formatteren meegegeven ID 
weer uit een block van de diskette terug 
te lezen, zodat schade aan de BAM kan 
worden voorkomen, of op z’n minst 
beperkt ?’ 

Met hulp van de processor uit de 
1541 -drive is het gelukkig mogelijk om 
de originele ID weer terug te vragen. 
De originele identifikatie wordt uit 
ieder block van de disk gelezen en 
opgeslagen in de nul-pagina van de 
drive, op de adressen $18 en $19. 
Door deze Bytes te vergelijken met de 
leesbare ID in track 18 sector 0, kun¬ 
nen we zien, of beide overeenstem¬ 
men. Om dit te doen, kun je gebruik 
maken van deze subroutine: 

10 OPEN 15,8,15,”i0” 

20 OPEN 2,8,2,”# 1” 

30 PRINT# 15,”u1:”2;0;18;0 
40 PRINT# 15,”b-p:”2;162 
50 GET# 2,1$: GET# 2,D$: 

ID$=I$+D$ 

60 PRINT# 15,”m- 

r:”CHR$(18)CHR$(0)CHR$(2) 

70 GET# 15,S$: GET# 15,A$ 

80 SA$=S$+A$ 

90 PRINT ”Block-ID:”SA$;” TRACK- 
ID:”ID$ 

95 IFSA$OID$THEN PRINT 
"Identifikatie niet gelijk” 

100 CLOSE 2 : CLOSE 15 

Deze routine werkt voor de 1541 disk¬ 


drive. Voor de 4040 moet regel 60 
worden weggehaald. Daarvoor in de 
plaats komen de regels: 

55 FOR T = 33 TO 34 
60 PRINT# 15,”m- 

r:”CHR$(T)CHR$(16):GET# 15,A$ 
65 SA$=SA$+A$: NEXT T 

Let bij het overtypen wel op de goede 
syntax, want elke punt en komma is 
belangrijk bij dit soort disk-comman- 
do’s. Bij het runnen krijg je twee ID’s 
op je scherm, waaraan je zien kunt of 
de originele identifikatie nog dezelfde 
is, als de ID die op de directory-track 
staat weggeschreven. Is dit niet het 
geval, dan is de beste oplossing, deze 
disk opnieuw te formatteren. Zijn de 
bestanden op de diskette te waarde- 
vol om te laten verdwijnen, dan kun je 
de block-ID terugzetten op de directo¬ 
ry-track, op dezelfde manier als je hem 
daar ooit hebt veranderd. Het is zeker 
niet aan te bevelen om twee niet iden¬ 
tieke disk-ID's op een schijf te laten 
staan. De processor van de drive 
wordt hierdoor zodanig in de war ge¬ 
bracht, dat bij het (herschrijven van 
data op de diskette, een verlies van 
alle op de schijf aanwezige gegevens 
kan worden gegarandeerd. 

Cursor. 

Bert van der Ham schrijft een uitvoerige 
brief waarin staat, dat hij zich ontzet¬ 
tend irriteert aan de cursor, die altijd 
maar op z’n scherm staat te knipperen. 
Hij wil het liefst geen cursor meer zien, 
en als het toch moet graag eentje die 
niet knippert. 

Beste Bert. De cursor zit natuuhjk niet 
voor niets ingebouwd in de l/O van de 
computer. Hij heeft een degelijke en 
goed doordachte functie. Het zou leuk 
zijn, als het cursorteken zelf te bepalen 
was, maar dat wordt wat moeilijk bij 
Commodore-computers, omdat daar 
erg geavanceerde schermkontrole- 
mogelijkheden zijn toegepast. Stel je 
de cursor maar eens voor als een 
pijltje of een ster. Als je daarmee een 
regel tekst op het scherm wilt corrige¬ 
ren, dan zie je niet meer welke letter 
onder de cursor staat, want daar staat 
het door jou gemaakte cursorkarakter. 
Dus de grote voordelen van een goede 
cursor-besturing op het scherm ma¬ 
ken het definiëren van een eigen cur- 
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sor (bijna) onmogelijk. Het beste watje 
kunt doen, is bij het programmeren 
van je eigen programma’s er rekening 
mee houden dat iedere keer wanneer 
je een input vraagt van het scherm, 
-want dat is het enige Basic-comman- 
do waarbij je de cursor ziet- niet het 
INPUT-statement, maar het GET- 
commando te gebruiken. 

Als je echt geen cursor meer wilt zien, 
ook niet tijdens het intoetsen van een 
programma enzo, dan moet je de vol¬ 
gende regels maar eens intypen en 
runnen: 

10 I = 49152 

20 READ A: IF A = >0then POKE l,A: 

1 = 1+1: GOTO 20 
30 SYS 49152 :STOP 
40 DATA 120, 

69,13,166,192,141,20,3,142,21,3 
50 DATA 88, 

96,169,20,133,205,76,49,234,-1 

De cursor is voorgoed van het scherm 
verdwenen, verder werkt de C-64 nor¬ 
maal. Op dat moment zul je pas ont¬ 
dekken hoe nuttig een knipperende 
cursor eigenlijk kan zijn. 

Vic-20 

We krijgen nogal wat reakties van min 
of meer verongelijkte lezers, die een 
Vic-20 bezitten. Zij vinden dat er te 
weinig aandacht wordt besteed aan 
deze machine. 

S.Kramer uit Assen schrijft hierover: 

Is dit blad eigenlijk wel geschikt om 
vooreen Vic-20 te gebruiken. Veel win¬ 
kels hebben niets meer voor de Vic, en 
vaak wordt je zelfs minderwaardig be¬ 
handeld als Vic-20 eigenaar. 

Ik vind het niet korrekt, dat er van een 
slechte behandeling sprake is, als je in 
een computerhandel niet voor vol 
wordt aangezien wanneer je daar iets 
voor de Vic wilt gaan kopen. 

Je moet jouw geval een beetje bekij¬ 
ken als iemand die een oude auto 
bezit. Hij rijdt nog prima, en je kunt er 
nog van alles mee doen. Maar intus¬ 
sen zijn er weer nieuwe types op de 
markt, en dan is het begrijpelijk, dat er 
van oudere machines weinig werk 
meer wordt gemaakt. Voor jou, als Vic- 
gebruiker is dit vervelend. Wil je uit¬ 
breiden met de Vic, dan zul je de 
advertentiekolommen voor tweede¬ 
hands computers moeten gaan 
doorsnuffelen. Éen voordeel is, dat je 


dan alles meestal veel goedkoper op 
de kop kunt tikken. 

Wat C-info betreft, kijk maar eens naar 
de listings in dit nummer, en tel dan 
hoeveel programma’s er bij zijn, die 
voor de Vic-20 kunnen worden ge¬ 
bruikt. Je ziet, dat wij de Viccers nog 
niet zijn vergeten. Maar het wordt met 
de grote hoeveelheid nieuwe Commo- 
dore-machines steeds moeilijker om 
voor al die verschillende apparaten 
evenveel nieuws te kunnen bieden. 
We doen in elk geval ons best. 
Helaas, de stapel binnengekomen 
brieven is nog weinig geslonken, on¬ 
danks de post die inmiddels is beant¬ 
woord. Is je probleem ook deze keer 
niet opgelost, bedenk dan, dat er over 
een paar weken weer een nieuw num¬ 
mer van dit blad verschijnt. 

Breaktoets afzetten 

De 14-jarige Alexander Tan uit Bunnik 
liet ons weten, dat hij ergens een me¬ 
thode heeft gelezen, om de Break/Res- 
tore-funktie op de C-64 uit te scha¬ 
kelen. 

Als je vanaf het eerste nummer van 
Commodore-lnfo trouw alle listings 
had bekeken, zou je gelzen hebben 
dat er al eens een routine was gepubli¬ 
ceerd, om de Break-toets uit te scha¬ 
kelen. Met het intypen van ’POKE 
808,232’ gaat het ook. De interne klok 
van de C-64 blijft doorlopen en door¬ 
tellen, terwijl ook de STOP/RESTORE- 
funktie is uitgeschakeld. 

Wil je dit allemaal weer naar z’n nor¬ 
male funkties terugzetten, dan doe je 
dat, door het intypen van ’POKE 
808,233’. Je kunt natuurlijk ook ge¬ 
woon de computer uitzetten. 

Floppy disks en de 1541 

Ditmaal een brief uit Den Bosch, met als 
afzender J. W.M. Berndt. Hij heeft het 
voor elkaar gekregen om op 4 vellen in 
totaal maar liefst 10 vragen te formu¬ 
leren. 

De algemene tendens van zijn proble¬ 
men betreft het werken met de disk¬ 
drive. 


Ik hoop niet, dat je het erg vindt, maar 
10 vragen in een keer vind ik wel wat 
veel van ’t goede. Ik zal proberen in het 
algemeen wat opmerkingen te maken 


over je problemen zodat de rest zich¬ 
zelf (hopelijk) oplost. 

De Commodore 1541 is -net zoals de 
C-64- in allerlei, intern min of meer 
verschillende versies,op de markt. De 
allereerste uitvoering van de 1541 (in 
witte kast) is de machine met de be¬ 
ruchte warmte-problemen. Van latere, 
bruine apparaten kun je aan de buiten¬ 
kant niet zien welke versie je bezit, 
maar je kunt stellen, dat hoe nieuwer 
het apparaat, hoe recenter ook de 
versie van het ding, en dus... meestal 
minder ’bugs’ dan oudere machines. 
Voor de diskettes kun je een keuze 
maken uit het talrijke aanbod van mer¬ 
ken, waarbij het moeilijk te zeggen 
valt, welk merk de voorkeur verdient. 
Koop echter alleen diskettes met als 
kwalificatie minimaal 40 tracks/inch, 
Single Sided, Doublé Density. Let er 
ook op, dat het gat in het centrum van 
de schijf tenminste aan een kant zicht¬ 
baar verstevigd is. Verder kun je af¬ 
gaan op de ervaring van kennissen 
met een bepaald merk, en uiteraard is 
de prijs van de schijf niet onbelangrijk. 
Bij het werken met disks en drive kun 
je beter niet al te dicht bij een grote 
T.V.-monitor in de buurt komen, al zal 
er bij een normale afstand (20 cm) 
tussen beide units weinig van interfe¬ 
rentie te merken zijn. Voor printer en 
diskettes geldt hetzelfde. 

Commodore heeft voor Nederland 
nieuwe, snellere diskdrives aangekon- 
digd, maar deze zijn momenteel nog 
niet in de handel. Wellicht komen ze 
gelijk met de nieuwe C-128 op de 
markt, wanneer dat dan ook staat te 
gebeuren. Deze nieuwe drive werkt 
voor een deel met het disk-formaat 
van de 4040 en de 1541, maar er zijn 
software-beveiligde 1541 diskettes 
die niet werken op de nieuwe drive. 
Wil je een redelijke snelheid bereiken, 
dan is op dit moment een enkele of 
dubbele 1,2 MByte CBM 8250 met 
IEEE interface de oplossing en er zijn 
dan een aantal alternatieve appara¬ 
ten zoals de MDS te koop, terwijl ook 
de SDF 1000 gesignaleerd is. 

Hopelijk ben je door dit verhaal wat 
wijzer geworden. • 

Jan Bodzinga. 
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Als bedieningsinstrument voor de computer blijven er natuurlijk variaties komen. We 
kennen exotische besturingsgevallen, die met hoofdbewegingen of via de stem 
werken, voor de meeste gebruiker blijft de joystick evenwel het meest universeel. Er 
zijn andere commandogevers te koop en naast de muis is ook de TRACKBALL een 
bekend alternatief. Wie in een Arcade gaat kijken, ziet ze daar op tamelijk veel 
videogame machines zitten. Voor ƒ 275 inclusief software is het er ook voor de C-64, 
maar wat kun je er dan mee doen? 


RB2 DRAAIBAL 


Een omgekeerde muis aa 


D e trackball stamt nog uit de tijd 
van PONG, Nolan Bushneli’s 
eerste successpel met Atari. In 
die tijd was de techniek van het 
videospel nog niet erg ver. De 
joystick was vooral bij sportspelletjes 
niet optimaal om het streepje, dat in die 
tijd het batje of racket voorstelde, snel 
en zuiver te verplaatsen. Het alternatief 
was een ding, dat niet-lineair positie 
kiezen toeliet en dat vanwege de draai- 
bal de naam TRACK-BALL meekreeg, 
de voigbal om snel de beweging van het 
balletje in het spel te kunnen volgen. 
Op dit moment zijn er niet erg veel spellet¬ 
jes, waarbij de trackball nog een duidelijk 
voordeel heeft boven de joystick. De spel- 
pook heeft op dat gebied duidelijk de 
overhand. Bovendien is de muis, ook al 
zo’n alternatief om snel de cursor over het 
scherm te jagen, sterk in opkomst. Wie de 
muis, die over een plat vlak wordt bewo¬ 
gen en de trackball goed bekijkt, ziet ster¬ 
ke overeenkomsten. In wezen is een muis 
namelijk een omgekeerde trackbaal met 
de knopjes aan de andere kant. Daarmee 
is overigens ook direkt het gebruiksver¬ 
schil tussen muis en bal aangegeven. De 
muis wordt qua positie met de arm ver¬ 
plaatst, terwijl de hand vrij is voor de 1,2 of 
3 knoppen. Bij de bal moet alles met de 
hand gedaan worden. Beide manieren 
hebben enthousiaste volgers, vooral de 
muis kan bij sommigen geen kwaad doen, 
zij vinden deze PARC (Palo Alto Research 
Center van Xerox) innovatie de mooiste 
ontwikkeling sinds de 8008 micropro¬ 
cessor. 



Creatief gebruik 

Bij spelletjes dus niet altijd je van het, is er 
wel een gebied, waar muis, graphic pad en 
trackball juist heel handig zijn. Dat is het 
terrein van de interactieve bit-mapped 
graphics of tekenen, plakken en schuiven 
op het beeld. Het terrein van de artiestieke 
computeraar, die computerkunst wil ma¬ 
ken of gewoon zijn boodschap wat fraaier 
wil verpakken. Bij dit soort toepassingen, 
waarbij de cursor liefst zo snel mogelijk 
over het scherm moet kunnen schuiven, 
komt de rolbal wel van pas. Tenminste, 
waneer men de juiste software ervoor 
heeft. 


Exotische stuurmiddelen zijn pas zin¬ 
vol, wanneer er ook aangepaste soft¬ 
ware voor beschikbaar is. 


Want de signalen, die door een rolbal, muis 
of graphic pad worden doorgegeven aan 
de joystickpoort, lijken natuurlijk wel op de 
normale signalen, maar zijn niet identiek. 
Via speciale software moet dat allemaal 
verwerkt worden. 

Marconi RB2 

We probeerden de Marconi RB2, een ste¬ 
vig uitgevoerde rolbal, die men zelf TRAC- 
KER BALL noemt. In een keurige doos met 
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Engelstalige handleiding en cassette met 
software. Vooral dat laatste is belangrijk, 
want dat bepaald de bruikbaarheid van het 
ding in de praktijk. In het algemeen kun je 
zeggen, dat er tenminste drie program¬ 
ma’s nodig zijn bij ieder afwijkend stuur- 
middel. Dat is in de eerste plaats een 
toepassingsprogramma, meestal Artist, 
Teken, Schets of Creatie genoemd, waar¬ 
mee men op het scherm aan de gang kan. 
Ten tweede een stukje Basic listing, waar¬ 
mee men zelf programma’s kan schrijven 
of aanpassen om gebruik te maken van het 
apparaat. Als laatste een stukje machine¬ 
taal, waarmee datzelfde mogelijk en dat 
bv. vooraf geladen en weggezet kan wor¬ 
den, zodat ook bij andere commerciële 
software ermee te gebruiken is. 

Bij de RB 2 is er voor de laatste 2 listings 
een tussenvorm opgenomen in de docu¬ 
mentatie, namelijk een Basiclisting met 
veel Data-statements. Acceptabel, maar 
niet 100%, alleen de echte hacker kan hier 
de benodigde informatie uit herleiden. 

MEDL RB2 ARTIST 

Het echte programma bij de RB2 voldoet 
wel aan alle eisen, men kan er vrijwel alles 
mee doen, zelfs voor de verwende beeld- 
schilder. Het maakt gebruik van de volledi¬ 
ge mogelijkheden in de grafische mode 
(Hi-res 320x200), waarvan er maximaal 
twee beelden tegelijk in het geheugen kun- 
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rien staan. Het laden van het programma 
kan alleen (en dat kost dus even) via de 
cassette, de beeldinformatie kan zowel 
naar schijf als tape. 

Een nadeel van de gedetailleerde beeldjes 
in deze mode is natuurlijk het monochro¬ 
me karakter evan, er is maar één kleur. Via 
een menu kan men kiezen uit box, cirkel, 
driehoek, lijn, plot, fill, fijne of dikke lijnen, 
het combineren van plaatjes, het plaatsen 
van teksten, in wezen alle funkties die we 
ook bij bv. Koalapainter en dergelijke pro¬ 
gramma’s tegenkomen, maar dan wel in 
één kleur. Schaduwen en dergelijk zijn wel 
mogelijk, omdat de resolutie in de Zoom 
mode het invullen met patronen en raster 
toelaat, ieder puntje is bereikbaar. 

De merge, load en save funkties maken het 
via inladen van eerder opgeslagen beeld¬ 
jes op het tweede scherm mogelijk om uit 
een beeldbibliotheek figuren te gebruiken, 
zodat CAD/CAM achtige toepassing mo¬ 
gelijk is. Er zijn wat voorbeelden op de 
cassette meegeleverd. 

Een erg prettige funktie en één, die ook het 
monochrome karakter van het programma 
begrijpelijk maakt, is het afdrukken. Dat zit 
standaard in het menu, en er worden een 
aantal printers direkt ondersteund, zoals 
de Commodore 801, 1515, 1525 en de 
Epson MX serie en dan nemen we aan, dat 
ook de Star en 803 het wel zullen doen. 
Andere printers kan men via een custom 
driver menu ook besturen, maar dat vraagt 
enige programmeerkennis om zo’n driver 
te maken of aan te passen. 


TECHNIEK 



De werking van een trackball berust op een stel optische pulsgevers, die de 
draaibeweging (in twee richtingen) vertalen in pulstreintjes. De bal draait op twee 
asjes en een kogellager. De asjes draaien, die draaiing wordt via een minuscuul 
lampje en fotocelletje omgezet in signaal en na bewerking komen de pulsjes op de 
X- en Y-uitgang en uit de fase-verschuiving blijkt de richting. Daarnaast zitten er 
drie knoppen op de Tracker Ball, die een door de gebruiker of programmeur te 
kiezen funktie kunnen hebben. De middelste dient meestal als vuurknop, ook bij 
gebruik als joystick. 


Gebruik als joystick is mogelijk, maar 
werkt niet altijd prettig. 



SPACEPEN MET 3-D BESTURING 


Een wel heel exotisch besturingsmiddel ontdekten we in Amerika, waar Soniture 
de SPACE-PEN heeft ontwikkeld. Voor ruim 500 gulden kan men daarmee op een 
afstand en in een driedimensionaal kader commando’s geven aan de computer. 
Inclusief software, want dit is wel een heel bijzondere manier van interactie. Via een 
ultrasoon geluid wordt de positie van de Space-pen overgedragen aan de 
computer en dan kan men dus niet alleen de jcursor in één vlak bewegen, maar ook 
achter of voor andere objecten laten schuiven. 


Wanneer we proberen de RB2 te gebrui¬ 
ken bij een van die spelletjes, waar de 
snelle links-rechts beweging veel gebruikt 
wordt, zoals bij loop of fietsspelletjes, gaat 
het spelen bij simpele bewegingsroutines 
heel aardig. Zogauw er echter gecompli¬ 
ceerder bewegingen gebruikt worden, dus 
bv. een combinatie van richting en vuurk¬ 
nop, dat raakt men verward in de bewe¬ 
gingsrichting van de bal. Bij het stilzetten 
van de bal wordt namelijk onwillekeurig 
toch heel kort een reaktiekracht uitgeoe¬ 
fend en dat betekent een verkeerd signaal. 

Conclusie 

De RB 2 Tracker Ball van Marconi is 
geen goedkoop speeltje en bij de aan¬ 
schaf moet men het eerder vergelijken 
met bv. een Koalapad dan met een joy¬ 
stick. Voor 275 gulden krijgt men wel 
een gevoelig (in de goede zin van het 
woord) besturingsmechaniek, een goed 
tot zeer goed monochroom teken/grap- 
hics programma en voldoende onder¬ 
steuning van de meest gebruikte prin¬ 
ters, cassette en diskdrive. Niet bruik¬ 
baar voor de SX 64 (alleen op cassette). 
Te koop bij computer-speciaalzaken 
oa. Vogelenzang. • 
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Dit najaar wordt de computeraar verrast met een grootse aktie van MCN, (V&D en 
Dixons) en de Rabobank. Men kan middels een computerspel niet alleen tegen de 
machine, maar via een hele nationale organisatie ook in breder verband met alle andere 
spelers de computerdegens kruisen. 


Verdien door speculatie 




S timulering van het computerbe- 
wustzijn op nationale schaal, zo 
karakteriseert Maurice de Hond 
van MCN zijn nieuwste geestes¬ 
kind, een computer beurs-spe- 
culatiespel, waarbij hij 25.000 compute- 
raars denkt te strikken. 

Voor 79 gulden kan men bij V&D en Dixons 
door aankoop van dit spel, of is het toch 
een serieuze toepassing, meedoen aan 
een wereldprimeur. Ook op de Commodo- 
re-lnfo computerdag op 14 september in 
Den Haag zal men met dit progamma 
aanwezig zijn. 

Via de eigen computer kan men hiermee 
gaan speculeren met een aantal beurs¬ 
fondsen (en externe omstandigheden als 
sportuitslagen, politek en weer), de voor¬ 
spellingen inzenden naar MCN, en weer 
samenwerken met de grote computer 
daar. Interactie is het kernwoord in deze 


aktie, die op initiatief van MCN en in sa¬ 
menwerking met de RaboBank wordt ge¬ 
voerd. 

Interactie 

De deelnemers kopen een op zich amu¬ 
sant en vooral leerzaam programma, waar¬ 
bij ze geconfronteerd worden met de ech¬ 
te koersen op de Amsterdamse beurs. Via 
kunstmatige fondsen Sport, Weer en Poli¬ 
tiek komt daar nog een extra spannend 
element bij. Zo wordt de uitslag van de 
voetbalwedstrijd Ajax-Feyenoord gebruikt 
en het feit, of op 9 oktober Lubbers in het 
Journaal genoemd wordt. Volop spanning 
dus en het gaat niet om een kunstmatige 
exercitie, men kan er ook nog iets mee 
verdienen. Allereerst is er een prijzenpot 
van 35.000 gulden voor de landelijke top¬ 
pers. Daarnaast kan iedere deelnemer, die 
begint met een startkapitaal van 20.000 


gulden, proberen dat te verhogen en hij/zij 
krijgt aan het einde van het spel per 1.000 
gulden een waardebon van MCN voor 1 
gulden. Een leuke manier om de aanschaf¬ 
prijs van je computer of randapparatuur 
terug te verdienen. Voor die prijs krijgt men 
overigens ook nog de maandelijkse over¬ 
zichten van de centrale computer met 
data, die weer gebruikt worden in het spel. 
Daarop staat ook de landelijke rangorde 
vermeld, zodat iedereen zijn prestaties 
t.o.v. anderen kan vergelijken. 

Enthousiasme 

We hopen, dat veel mensen enthousiast 
gaan meedoen met dit spel, dat belooft 
de gemoederen in het najaar aardig 
bezig te gaan houden. De eerste ronde 
gaat van start in oktober, maar in janua¬ 
ri is er een nieuwe kans om mee te doen. 

• 



Ook bij ons de Wiesseman WW-92000/G voor 
slechts ƒ 199,95 (incl. B.T.W.). 


COMPUTER SUPPLIES 


Rompertpark 39 
5233 RJ ’s-Hertogenbosch 
Tel. 073-410761 


HET ADRES VOOR DISKETTES 
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In een vorig nummer presenteerde Commodore-lnfo u een database voor de VIC-20 
computer. De belofte die toen werd gedaan, wordt nu nagekomen. In dit nummer krijgt 
u van Bob Munniksma de aanpassingen voor een 40-koloms scherm, zodat de 
database, speciaal voor de schooladministratie, ook op een C-64 (en eventueel ook op 
C-16 en Plus/4) kan draaien. 


DATABASE VOOR DE 

C-64 


Leerlingenbestand 


Het programma om de gege¬ 
vens van de leerlingen van 
een school goed in de com¬ 
puter te brengen en te hou¬ 
den, uit nr. 5 op pagina 43 ev. 
was geschikt voor de Vic, 
maar met onderstaande aan¬ 
passingen kan het ook op de 
64 draaien. 

De belangrijkste veranderin¬ 
gen betreffen die voor een 40- 
koloms scherm. En met wat 
meer geheugen zoals bij de 64 
kan men natuurlijk ook iets 
doen aan het uiterlijk van de 
database. 

Lay-out 

Kaders en lijnen geven het 
scherm een profesionelere in¬ 
druk. 

We kunnen dit eenvoudig reali¬ 
seren door de regels van listing 
1 (zie hierna) aan de database 
toe te voegen. Met dit stukje 
programma worden alle ka¬ 
ders gemaakt en in de variabe¬ 
len KIS t/m K8$ gezet. 

Zo zijn de kaders op allerlei 
manieren aan te roepen in het 
programma. Ook kan de ge¬ 
bruiker zelf nieuwe kaders sa¬ 
menstellen en gebruiken, waar 
hij dat wil. 

Door te werken met GHR$ 
wordt de listing leesbaar. U 
kunt natuurlijk ook de kaderva- 
riabelen direct met de tekenset 
definiëren zonder CHR$. 

Om te laten zien wat u kunt 
bereiken met deze werkwijze, 
krijgt de C-64 versie van de 
database een geheel nieuwe 
scherm lay-out van het menu 
(listing 2). 


LISTING 1 Kader set-up 

1 K1$=CHR$ (144) +CHR$ (117) +CHR$ (96) +CHR*U05) 

2 K2$=CHR$(144)+CHR$(98)+CHR$(32)+CHR$<98) 

3 K3*=CHR* (144) +CHR4» < 106) +CHRÜ><96> +CHR$ (107) 

4 F0RK=1T038:K4$=CHR«(96)+K4$ 

5 K5$=CHR3i<32) +K5$: NEXT 

6 KÓ$=CHR*( 144) +CHRSM117) +K4*+CHR$(105) 

7 K7*=CHR$(144)+CHR*(106)+K4S+CHR*(107) 

8 K8$=CHRSM 144)+CHR*(98)+K5$+CHR*(98) 

** EINDE LISTINS **** 


LISTING 2 40-kolommen menu 

660 PRINTCHR*(147)JKÓSsjK8*J«8*5K7* 

670 F0RM=1T05 

680 RRINTK1S5SPC(20)K1* 

690 PRINTK2*5SPC<20)K2$i 
700 PRINTK3«;SPC(20)K3* 

710 NEXT 

720 PRINT"[HOME][2XNEER][RECHTS]"MS;:PRINTTAB<25)"D 
ATUM: “JD* 

730 PRINT"[HOME][NEER][RECHTS][L.BLAUW] * *[2XSPATIE3 
LEERLINGEN[3XSPATIE3ADMINISTRATIE[2XSPATIE3* *“ 

740 PRINT”[4XNEER][RECHTS]Z[2XRECHTS]ZOEKEN”5 TAB(24 
)”I[2XRECHTS]INVOEREN" 

750 PRINT"[2XNEER][RECHTS]B[2XRECHTS]BEWAREN"!TAB(2 
4)"L[2XRECHTS 3 LADEN" 

760 PRINT”C2XNEER3[RECHTS3TC2XRECHTS]TELLIJSTEN";TAB( 

24) ”K[2XRECHTS 3 KLASSELIJST“ 

770 PRINT”[2XNEER3[RECHTS3WC2XRECHTS3WISSEN”;TAB(24 
)"VI2XRECHTS3VERANDEREN" 

775 PRINT"[2XNEER3[RECHTS3S[2XRECHTS]STOPPEN"!TAB(2 
4)"DI2XRECHTS]DIRECTORY" 

780 PRINTTS5KÓS;K8SJK7*; 

790 PRINT"C2XOP3[RECHTS] MAAK EEN KEUZEC2XSPATIE][RVS-AAN] 
MIRVS-UIT] = TERUG NAAR MENU "5:GOSUB1490 

** EINDE LISTING *** 
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Vervang regel 660 tot en met 
790 (het menu) door dit nieuwe 
menu. De werking verandert 
niet, maar het ziet er wel veel 
beter uit. Zoals u ziet, is er al 
rekening gehouden met disk- 
gebruik. De D staat voor het 
lezen van de directory. 

Breder beeld 

Hoewel het oorspronkelijke 
programma goed draait op een 
C-64 - we gebruikten algeme¬ 
ne Basic regels - ziet het beeld 
er niet zo goed uit bij de 64. De 
gehele lay-out was immers be¬ 
doeld voor een VIC-20! De ver¬ 
anderingen voor een 40-ko- 
lommen scherm zijn echter mi¬ 
nimaal. Ik zal alle modules van 
het programma nalopen en 
voorzien van aanvullingen en 
veranderingen. Het gebruik 
van een disk-drive krijgt ook 
aandacht. 

De modules INVOER, KLAS- 
SELIJST, WISSEN, STOPPEN 
en MENU behoeven geen 
aanpassing. De rest gaat als 
volgt: 

1 ZOEKEN 
(regel 240) 

In regel 280 moet u de parame¬ 
ter van LEFT$ veranderen in : 
3+F. De functie komt er dan zo 
uit te zien: LEFT$(T$,3+F). 

3 BEWAREN 
(regel 550) 

We willen ook de mogelijkheid 
openen om de files op disk te 
bewaren. Listing 3 geeft u de 
nodige vervangende en aan¬ 
vullende programmaregels. 
LET OP: Het WAIT commando 
in regel 590 is nu bestemd voor 
de C-64. 

4 LADEN 
(regel 950) 

Ook hier aanvullingen (listing 4) 
voor diskgebruik. De opbouw 
is identiek aan die van de BE- 
WAAR-module. Het WAIT 
commando in regel 990 is weer 
voor de C-64. 

5 TELLIJSTEN 
(regel 1110) 

Verwijder de ; aan het einde 
van de regels 1190 en 1260. U 
kunt verder de kolommen wat 
verder uit elkaar zetten door de 
variabelen, die voor het tabule- 


ren zorgen (dit zijn XI, X2 en 
X3) te veranderen. 

8 VERANDEREN 
(regel 1340) 

In regel 1430 moet weer de 
LEFT$ parameter worden aan¬ 
gepast, anders komt de cursor 
verkeerd terecht. De 6 wordt 
een 5. De functie wordt dan 
LEFT$(T$,M+5). Tenslotte 


kunt u alle modules oppoetsen 
met kadertjes e.d., maar ver¬ 
geet niet, dat u werkt met se¬ 
quentiële files en die vragen 
geheugenruimte. Lay-out 
vraagt ook ruimte, die dan niet 
meer te gebruiken is voor de 
records. 

Directory lezen 

Als u in het programma de di¬ 


rectory van een schijf wilt lezen 
, zonder het programma aan te 
tasten, geeft het programma- 
deel van listing 5 u een kant en 
klare leesroutine. U kunt de 
routine zo aan uw database 
toevoegen. Het menu moet te¬ 
vens worden aangevuld met 
deze regel: 

895 IF F$ = ”D” THEN 2000 


LISTING 3 Aanvulling bewaren op disk 

581 PRINT:PRINT"[2XNEER3CRVS-AAN3TCRVS-UIT3APE OF CRVS-AAN3 
DCRVS-UIT3ISK ?" 

582 GOSUB1490:IFF*="T"THEN590 

583 IFF$="D"THEN585 

584 G0T0582 

585 0PEN2,8, 2, “@0: "+M3!+" , S, W" 

586 PRINT#2,M!S:PRINT#2,D* 

587 GOTO610 

590 PRINT:PRINT"CNEER3DRUK OP REC EN PLAY":WAIT1,16,16 
** EINDE LISTING *** 


LISTING 4 Aanvulling laden van disk 

950 PRINT"C CLR-HOME 3[RVS-AAN 3 LADENC16XSPATIE3" 

955 PRINT"E2XNEER3[RVS-AAN3TCRVS-UIT3APE OF l RVS-AANID 
CRVS-UIT3ISK ?" 

960 GOSUB1490:IFF*=”T"THEN990 
965 IFF$="D"THEN975 
970 GOTO960 

975 PRINT"C2XNEER3FILENAAM : " 5 : INPUTttl, M3> 

980 OPEN2,8,2,"0:"+M*+",S,R" 

985 INPUT#2,M*:INPUT#2, D*: GOTO1010 

990 PRINT"C2XNEER3DRUK OP PLAY":WAIT1,16,16 

** EINDE LISTING *** 


LISTING 5 Leesroutine voor directory 

2000 PRINT"ERVS-AAN3C2XSPATIE3DIRECTORY LEZENC6XSPATIE3" 
2010 OPEN2,8,0,"I":CL0SE2 

2020 OPEN2,8,0,"*0":FORI=0TO5:GET#2,V*:NEXT:PRINT:PRINT 
"[3XSPATIE 3"! 

2030 GET#2,V*:IFV*< >""THENPRINTV* J:GOTO2030 
2040 PRINT 
2050 GET#2,V* 

2060 PRINT:GET#2,V* 

2070 GET#2, L*: I FL3>= “ " THENL$=CHRS (0) 

2080 GET#2, K9>: IFK$=" " THENK*=CHR* (0) 

2090 BL=ASC <K*) *256+ASC <LS») : PRINTEL; SPC (5) S 
2100 GET#2,V*:iFV«<>""THENPRINTVS;:GOTO2100 
2110 GET#2,V*:IFV3K >“"THEN2060 
2120 CLOSE2:PRINT:PRINT:PRINT:GOTO780 

** EINDE LISTING *** 
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Gebruikersgroepen 


Vic Database correctie 

Even wat rechtzetten met betrekking tot de database in jrg.2 
nr.5 op pagina 44. Er zijn een paar kleine onvolkomenheden in 
het programma geslopen. Dit heeft te maken met de printeruit- 
draai van de listing. De gebruikte printer kende het pijltje 
linksboven (de zgn. back-arrow) niet en maakte er een streepje 
van. We wisten van dit euvel en hebben het programma in 
allerijl en op het allerlaatste moment veranderd. We hebben de 
keuze om terug naar het menu te gaan aangegeven met de 
letter M. De tekst was echter al gezet en kon daarom helaas 
niet meer worden aangepast. We vergaten het pijltje in regel 
570 te vervangen. Dat werd dus een streepje. 


In het schermmenu is de D al 
opgenomen (zie listing 2). 

Storingen 

Als er met disk en printer wordt 
gewerkt, kunnen er allerlei situ¬ 
aties voorkomen, waarin de 
normale werking van de data¬ 
base onmogelijk wordt. De file 
staat niet op de disk, de printer/ 
drive staat niet aan, per onge¬ 
luk op de STOP-toets gedrukt 
en meer van die dingen. Ge¬ 


volg is vaak, dat het program¬ 
ma stopt. Dat betekent verlies 
van alle gegevens in de varia¬ 
belen. Er zijn diverse manieren 
om een programma volledig te 
beschermen tegen dit soort 
rampen. U kunt ze zelf toevoe¬ 
gen, waar dat nodig is. Als u 
niet weet hoe dat moet, dan 
raad ik u aan Commodore-lnfo 
te blijven lezen. We gaan daar 
een volgend nummer op in. • 
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32kB GEHEUGEN, ing. schakelbaar. 

64kB GEHEUGEN met speciale Ramfile software. 
40/80 TEKENKAARt, oneei, 80 tekens per regel. 

UITBREIDINGSKAART, 2 siots uw konnektor. 
|« ^UITBREIDINGSKAART , 5 slots, schakelbaar, gebufferd. 
|* ,EPROMKAART, voorgK^K on 8KEPROMS, instelbaar. 

I# UITBREIDINGSKAART, 2 slots. 


G UITBREIDINGSKAART, 5 elote, echakelbaar. gebufferd. 

• E PRO M KAART, voor 2K, 4K en 8K EPROMS, instelbaar 
0 EPROMPROGRAMMERp zet eipen programma sopEPROM. 

# EPROM WISSER, Wist 4 EPROMs gelijktijdig. 

•iZENITH MONITOR, rscherp, groen/amber beeld. 

•• rOv 1/0 BOX 49.50 (QjINFRA-ROODSYS. 149. S0 | 
éSiSRELAISBOX 79.w gS SERVO MOTOR SYS. 39.* 
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Nikkelstraat 39 

2904 AM RIDDERKERK 

Tel. 01804 - 30 233 


• Alle prijzen excl. BTW 

V verzending onder remDours ot per 

vooruitbetaling. 

• Vraag kosteloos de uitgebreido folders aan. 

• Ook 2aterdage geopend 

Dealer aanvragen welkom. 


De VCGN (070-971851) is de grootste 
Commodore gebruikersvereninging en zit 
iedere laatste zaterdag van de maand in 
het Lodewijk Makeblijde lyceum in Rijs¬ 
wijk. 

Inlichtingen over de vele afdelingen kunt u 
krijgen via: 

Zeeland 01180-25746 West-Brabant 
01640-51639 Midden-Brabant 01620- 
55634 Oost-Brabant 04120-42054 Zuid- 
Limburg 043-476935 Zuid-Holland 010- 
501023 

PET Benelux heeft bijeenkomsten in Zeist 
(Ie zaterdag), Nijmegen (2e zaterdag) en 
Haaksbergen (3e zaterdag). (Inl.05759- 
2211 ). 

De HCC Commodore gebruikersgroep 
heet Compet, 03404-59599. 

HOT NEWS van SCN uit Amsterdam 
(03450-16051) heeft haar grote bijeen¬ 
komst in de Meervaart op de 2e zaterdag 
van de maand en ook activiteiten in Zwolle 
(038-539760), Midden Nederland (03453- 
1375) en Deventer (05700-50758). 

WZW is een van de clubs uit Belgie, met 
afdelingen in Antwerpen, Limburg, West- 
Vlaanderen inl. Bindstr. 19, te Berchem 
Antwerpen. 

Ook in Gent is er een groep, te bereiken via 
091-253937 

In Arnhem zit ook een Commodore-club, 
waar men clubavonden op dinsdag iedere 
twee weken organiseert en ook cursussen 
geeft. Inl. Talingsingel 32 te Velp, tei. 085- 
647782. 


Knokke Heist 

In het Belgische Knokke-Heist 
is ook een gebruikersclub ac¬ 
tief. Men is daar heel ruimden¬ 
kend, de bijeenkomsten staan 
open voor gebruikers van alle 
merken home computers. Elke 
vrijdag vanaf 20.00 uur komen 
de computerenthousiasten uit 
de omgeveing bijeen in Café 
Monty in Knokke. Op zaterdag 
komt men bij elkaar in de Broe¬ 
derschool in Duinbergen van 
9.30 tot 12.00 uur. Het contac¬ 
tadres is: Computerclub Knok¬ 
ke Heist, p.a. Bob Dyserink, 
Kerkstraat 19, 8390 Knokke 
Heist, België. 






Vanaf deze aflevering zullen we ons voornamelijk bezig gaan houden met toepassin¬ 
gen in machinetaal. We beginnen met de behandeling van twee belangrijke Commo¬ 
dore 64- chips: de ClA’s (Complex Interface Adapter 6526). Dan volgt een analyse van 
het interruptprogramma van het vorige nummer. Het nieuwe programma deze keer 
zorgt ervoor dat je met F1 een zeer nauwkeurige klok op het scherm kunt krijgen. 


Programmmeren in 
machinetaal (b 



door Sjoerd Bakker 


Aflevering 5: De ClA’s. 


N aast de 6510-microprocessor 
heeft de Commodore 64, net als 
de meeste andere computers, 
nog enkele chips die voor speci¬ 
fieke doeleinden worden ge¬ 
bruikt. De VIC-chip zorgt voor beeld, de 
SID-chip voor geluid, en de ClA’s voor 
invoer/uitvoer en timing. Deze proces- 
soren vormen het echte hart van de 
micro, ze vertalen binnenkomende sig¬ 
nalen in andere, waarmee niet alleen 
het geheugen, maar ook de controle 
van bv. beeldscherm wordt gestuurd. 
Het grootste gedeelte van hun taken voe¬ 
ren die chips automatisch oftewel hardwa- 
rematig uit; d.w.z. buiten het bereik van 
programmeurs. Een voorbeeld hiervan is 
het versturen van beeldinformatie naar je 
monitor door de VIC-chip. Wij zullen echter 
de functies gaan bekijken waar je als pro¬ 
grammeur wel invloed op kunt hebben. 

CIA 

Nee, dit gaat niet over spionage, al heeft 
het wel alles met informatie van doen. De 
Commodore 64 is voorzien van twee CIA- 
chips (Complex Interface Adapter 6526), 
die belast zijn met de invoer en uitvoer van 
en naar randapparaten. Daarbij speelt de 
klok en de synchronisatie van de signalen 
een grote rol. De ClA’s hebben dan ook elk 
twee timers die worden gebruikt om de in- 
en uitvoer te ondersteunen, maar die je 
ook voor eigen doeleinden kunt benutten. 
Innerlijk zijn de ClA’s vrijwel aan elkaar 
gelijk, maar hun taken zijn verschillend. 
CIA 1 (adres $DC00-$DC0F) houdt zich 
bezig met het toetsenbord, de joysticks en 


het lezen van informatie op de cassette. Hij 
kan een IRQ ofwel Interrupt Request Sig- 
nal veroorzaken. CIA 2 (adres $DD00- 
$DD0F) heeft de IEC Seriebus en de User- 
port onder zijn beheer, en kan een NMI 
ofwel Non-Maskable Interrupt veroorza¬ 
ken, die dus niet zijn weg te drukken. De 
interrupts van CIA 2 hebben dus een hoge¬ 
re prioriteit dan die van CIA 1. IRQ’s kun je 
namelijk bij de processor verbieden; NMI’s 
niet. 

Registers 

Communicatie met chips gebeurt via re¬ 
gisters. Deze registers zijn opgenomen in 
het "adressenbestand” van de processor; 
je kunt de inhoud ervan meestal lezen en 
veranderen als gewoon RAM-geheugen. 

Het kenmerkende voor registerinhouden is 
echter, dat een verandering erin automa¬ 



tisch een bepaald gevolg met zich mee¬ 
brengt. Een voorbeeld: 

POKE 53265, PEEK 53265 OR 32. 

Je hebt nu register 17’s bit 5 van de VIC- 
chip veranderd van 0 in 1. Het gevolg is dat 
VIC nu in "grafische mode” staat en dus 
geen karakters meer leest uit het scherm- 
geheugen. De karakters die je wel ziet zijn 
bitpatronen van de character-ROM. Je 
komt weer in karaktermode door run/stop 
en restore gelijktijdig in te drukken. 

CIA-registers 

We zullen de functies van alle ClA-regis- 
ters eens apart gaan bekijken. Waar nodig 
slaan we ons er "bit voor bit” doorheen. Ik 
gebruik een nummering die uit 2 cijfers 
bestaat. Het eerste cijfer is het ClA-num- 
mer en het tweede geeft aan om welk 
register het gaat (0-F), We beginnen met 
CIA 1. 


CIA 

1 

CIA 

2 

FUNKTIE REGISTER EN 

BITS 






Nr . 

Adres 

Nr. 

Adres 

Register 

7 

6 

5 

4 

3 

2 

i 

0 

1.0 

$DC00 

2.0 

$DD00 

PRA 

PA7 

PA6 

PA5 

PA4 

PA3 

PA2 

PA I 

PA0 

1 . 1 

$DC0 1 

2. 1 

$DD01 

PRB 

PB7 

PB6 

PB5 

PB4 

PB3 

PB2 

PB 1 

PB0 

1 . 2 

$DC02 

2.2 

$DD02 

DDRA 

DPA7 

DPA6 

DPA5 

DPA4 

DPA3 

DPA2 

DPA 1 

DPA0 

1 . 3 

$DC03 

2.3 

SDD03 

DDRB 

DPB7 

DPB6 

DPB5 

DPB4 

DPB3 

DPB2 

DPBI 

DPB0 

1.4 

$DC04 

2.4 

$DD04 

TA LO 

TAL7 

TAL6 

TAL5 

TAL4 

TAL3 

TAL2 

TaLI 

TAL0 

1.5 

$DC05 

2.5 

$DD05 

TA Hl 

TAH7 

TAH6 

TAH5 

TAH4 

TAH3 

TAH2 

TAH 1 

TAH0 

1 . 6 

$DC06 

2.6 

$DD06 

TB LO 

TBL7 

TBL6 

TEL5 

TBL4 

TBL3 

TBL2 

TBL 1 

TBL0 

1.7 

$DC07 

2. 7 

SDD07 

TB Hl 

TBH7 

TBH6 

TBH5 

TBH4 

TBH3 

TBH2 

TBH 1 

TBH0 

1.8 

SDC08 

2.8 

SDD08 

TOD 10TH 

0 

0 

0 

0 

T*8 

T*4 

T*2 

T* 1 

1.9 

$DC09 

2.9 

$DD09 

TOD SEC 

0 

SH*4 

SH*2 

SH*1 

SL*8 

SL*4 

SL*2 

SL* 1 

1 . A 

$DC0A 

2. A 

$DD0A 

TOD MIN 

0 

MH*4 

MH*2 

MH* 1 

M 1 *8 

ML*4 

ML*2 

ML* 1 

1. B 

SDC0B 

2. B 

SDD0B 

TOD HR 

PM 

0 

0 

HH* 1 

HL*S 

HL*4 

HL*2 

HL* 1 

1. C 

$DC0C 

2. C 

$DD0C 

SDR 

S7 

S6 

S5 

S4 

S3 

S2 

SI 

S0 

l.D 

SDC0D 

2. D 

$DD0D 

I CR 

IR 

X 

X 

FLG 

SP 

ALRM 

TB 

TA 

1. E 

$DC0E 

2. E 

*DD0E 

CRA 

TODI 

SPMO 

INMO 

LOAD 

KUMO 

OUMO 

PBON 

STRT 

1. F 

$DC0F 

2. F 

$DD0F 

CRB 

ALRM 

IN 

MODE 

LOAD 

RUKO 

OUMO 

PBON 

STRT 
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CIA 1 

1.0 l/O-port A (PRA) 

Samen met register 1.1 (l/O-port B) wordt 
dit register gebruikt voor invoer van het 
toetsenbord en de joysticks. De toetsen 
van het toetsenbord zijn ingedeeld in een 
matrix van 8 rijen bij 8 kolommen. De rijen 
zijn via lijnen verbonden met register 1.0 en 
de kolommen met register 1.1. Zodoende 
heeft elke toets een eigen positie in deze 
matrix en kan het operating system met 
behulp van de registers regelmatig (dat wil 
zeggen zo snel, dat zelfs de snelste typiste 
niet hoeft in te houden) testen welke toets 
is ingedrukt. In een van de volgende afle¬ 
veringen zal ik de ROM-routine behande¬ 
len die hiervoor verantwoordelijk is. 

Wat de joysticks betreft ligt de zaak een¬ 
voudiger. Register 1.0 is behalve met de 
rijen van het toetsenbord ook verbonden 
met joystick-port 2. Om nu deze joystick te 
kunnen lezen moeten bits 0-4 van register 

1.2 eerst 0 (= input) worden gemaakt. Nor¬ 
maal is namelijk deze 1.2 output i.v.m. 
toetsenbordscanning. 

Vervolgens kun je aan de inhoud van 1.0 
zien in welke richting de joystick is bewo¬ 
gen. Een 0 betekent aktie en een 1 geen 
aktie. Bit 0 is omhoog, bit 1 omlaag, bit 2 
links, bit 3 rechts, en bit 4 fire. Kombinaties 
zijn natuurlijk ook mogelijk. 

1.1 l/O-port B (PRB) 

Zie voor de toetsenbord functie van 1.1 de 
toelichting bij register 1.0. 

Register 1.1 is verbonden met joystick- 
port 1. Omdat 1.3 normaal geproken al 
input is voor het toetsenbord, valt de joy¬ 
stick in port 1 zonder voorbereiding te 
lezen. Bijgaand BASIC-programma laat je 


de toestand van register 1.1’s bits zien 
terwijl je de joystick beweegt. 

1.2 Data Direction Register port A (DDRA) 
Met dit register kun je de corresponderen¬ 
de bits van register 1.0 bestemmen voor 
output, dan wel input. In het geval van 
output wordt de inhoud van register 1.0’s 
output-bits over de ermee verbonden lij¬ 
nen gestuurd. Bij input ontvangen de in- 
put-bits informatie over deze lijnen. Voor 
het lezen van het toetsenbord is de inhoud 
van register 1.2 gelijk aan 255 (alle bits 1, 
oftewel output). Bij gebruik van joystick- 
port 2 moeten bits 0-4 van dit register 0 
zijn. 

1.3 Data Direction Register port B 
(DDRB) 

De inhoud van dit register bepaalt of regis¬ 
ter 1.1’s corresponderende bits worden 
gebruikt voor input of output. Bij lezen van 


het toetsenbord is de inhoud van register 

1.3 gelijk aan 0, Zie verder de toelichting bij 
1.2. 

De Timers 

1.4 Timer A LO-byte (TA LO) 

Elke CIA heeft twee timers aan boord: 
Timer A en Timer B. Deze timers werken 
als eierjifj|$$s: je laadt ze met een be¬ 
paalde waarde en start ze. Vervolgens 
wordt deze waarde elke klokcyclus auto¬ 
matisch met 1 verminderd. Van die klokcy¬ 
cli gaan er 985.000 in een seconde, dus 
ook zeer precieze timing behoort tot de 
mogelijkheden. Als de timer tenslotte op 0 
staat kan dat een interrupt veroorzaken. Bij 
CIA 1 is het altijd een IRQ; bij CIA 2 een 
NMI. 

Een voorbeeld van het gebruik van een 
timer, in dit geval Timer A van CIA 1, is de 
toetsenbordscanning. De Reset-routine 
laadt Timer A met $4025 (16.421). De timer 
veroorzaakt een IRQ als hij op 0 is geko¬ 
men, laadt zich meteen weer met dezelfde 
waarde, telt weer terug etc. ... \ 

Hieruit volgt dat er (985.000/16.421 =) 60 
keer per seconde een interrupt ontstaat. 
De interruptroutine bestaat o.a. uit het 
inlezen van (eventueel) ingedrukte toetsen 
in de keyboard-buffer. 

1.5 Timer A Hl-byte (TA Hl) 

In dit register wordt de Hi-byte van de 
Timer A-waarde geladen. In bovenstaand 
voorbeeld wordt de inhoud van register 
1.4 gelijk gemaakt aan $25 en die van 1.5 
aan $40. 

1.6 Timer B LO-Byte (TB LO) 

Zie Timer A LO-byte. 


1.7 Timer B Hl-byte (TB Hl) 

Zie Timer A Hl-byte. 

De Time of Day-clock 

1.8 Time of Day-clock 10THS (TOD 
10THS) 

Beide ClA’s zijn voorzien van een zgn. 
Time of Day-clock. Dit is een 24 uurs-klok 
met aparte registers voor uren, minuten, 
seconden en 1/10 seconden. Nadat je de 
tijd in deze registers hebt geschreven, 
wordt de inhoud ervan automatisch ver¬ 
hoogd. Als hij op 12 uur komt te staan, 
wordt bit 7 van het uren-register (AM/PM- 
bit) geïnverteerd. Een uur later springt het 
urenrigister op 0 (bit 7 blijft oververanderd 
en dus niet op 13. Starten van de TOD- 
clock gebeurt door schrijven naar het 1/10 
seconden- registeren stoppen door schrij¬ 
ven naar het uren-register. Bij lezen van het 
uren-register wordt de inhoud van de hele 
TOD-clock in een soort tussenregisters 



gezet, van waaruit tussenregisters hebben 
dezelfde adressen als de normale TOD- 
registers. Door lezen van het 1/10 secon- 
den-register worder de tussenregisters 
weer leeggemaakt, en kun je een waarde 
"verderop in de tijd” lezen. 

De TOD-clock heeft de mogelijkheid om 
een alarm af te geven in de vorm van een 
IRQ. Op hetzelfde adres als de TOD-regis- 
ters "wonen” namelijk 4 alarmregisters. Op 
het moment dat de inhoud van deze twee 
registersets aan elkaar gelijk is gaat het 
alarm af. Bit 7 van register 1 .F bepaalt of 
geschreven waardes in de klokregisters (0) 
dan wel in de alarmregisters (1) worden 
geladen. 

De TOD-clock bevat waardes in BCD- 
formaat. Dat wil zeggen dat je de hexade- 
cimale inhoud moet interpreteren als deci¬ 
male waardes. Een voorbeeld: als de in¬ 
houd van het seconden-register gelijk is 
aan $40 zijn er niet 64 seconden verstre¬ 
ken, maar gewoon 40. Ook bij het schrijven 
naar de registers moet je hier rekening 
mee houden. 

Register 1.8 wordt in de praktijk alleen 
gebruikt om de TOD-klok te (her-)starten. 
Vrijwel niemand heeft belang bij tijdsme¬ 
tingen in 1/10 seconden. 

1.9 Time of Day-clock SEC (TOD SEC) 
Dit register bevat de seconden van de 
TOD-clock. 

1.A Time of Day-clock MIN (TOD MIN) 
Dit register bevat de minuten van de TOD- 
clock. 

1.B Time of Day-clock HR (TOD HR) 

Dit register bevat de uren van de TOD- 
clock. Bit 7 wordt om de 12 uur geïnver¬ 
teerd. Dat biedt de mogelijkheid om uren 
voor de middag en uren na de middag van 
elkaar te kunnen onderscheiden. Als er 
naar het uren-register wordt geschreven, 
stopt de automatische verhoging van de 
TOD-registers. De ophoging wordt hervat 
door schrijven naar het TOD-register 1.8 
(1/10 seconden). 


10 A=PEEK (56321): B=128 

20 FOR X=1 TO 8: PRINT (A AND B)/B; 

30 B=B/2: NEXT: PRINT: GOTO 10 
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1 .C Serial Data Register (SDR) 

Hoewel communicatie met apparaten, die 
zijn aangesloten op de Userport, voorna¬ 
melijk geschiedt via CIA 2, kan register 1 .C 
hierbij ook een rol spelen. Dit is het geval, 
wanneer gekozen wordt voor seriële trans¬ 
missie met behulp van IRQ’s. Bij onvangst 
wordt data dan via lijn SPI naar dit register 
gestuurd. Bij verzenden gaat het anders¬ 
om: de inhoud van register 1.C wordt via 
de lijn SPI naar het aangesloten apparaat 
gestuurd. Voor timing wordt gebruik ge¬ 
maakt van pulsen over CNT1 -lijn, waarop 
bij verzenden Timer A is aangesloten. 

Control registers 

1.D Interrupt Control Register (ICR) 

Zoals gezegd kan CIA 1 een IRQ veroorza¬ 
ken. Zo’n IRQ kan van vijf verschillende 
toestanden in CIA 1 het gevolg zijn. 

1. Timer A staat op 0 

2. Timer B staat op 0 

3. De TOD-tijd is gelijk aaan de gezette 
alarmtijd 

4. Het SDR-register is vol (bij ontvangen) 
of leeg (bij zenden) 

5. FLAG. 

FLAG is de naam van ClA’s pin 24. Hier 
komen twee lijnen op uit: de cassette- 
lees-lijn wordt data vanaf cassette ge¬ 
transporteerd, waarbij elk "signaal” (elk 
bit) een interrupt kan veroorzaken. Via 
een signaal over de SRQ-lijn kunnen op 
de Seriebus aangesloten apparaten 
kenbaar maken dat ze met de compu¬ 
ter willen communiceren. Signalen over 
de SRQ-lijn zijn de enige Seriebus-acti- 
viteiten die afgehandeld worden door 
CIA 1. De rest gaat via CIA 2. 

In het ICR-register kun je de vijf verschil¬ 
lende interrupmogelijkheden individueel 
toestaan of verbieden. Elke mogelijkheid 
wordt vertegenwoordigd door een apart 
bit van het ICR-register. Als dit bit 0 is, dan 
is de interrupt verboden; is het bit 1, dan is 
de interrupt toegestaan. Bit 0 is voor 
"Timer A op 0”, bit 1 voor "Timer B op 0”, 
bit 2 voor TOD-clock = alarmtijd, bit 3 voor 
SDR leeg/vol en bit 4 voor FLAG. Het 
schrijven naar dit register moet ge¬ 
schieden volgens een speciale procedure, 
waarbij bit 7 van de te schrijven waarde 
een belangrijk rol speelt. Is dit bit 1, dan 
komen de 1-en van de andere bits van 
deze waarde ook als 1 -en in het register te 
staan. Is bit 7 echter 0, dan worden de 1 -en 
van de andere bits als 0-en naar het regis¬ 
ter geschreven. In beide gevallen laten de 
0-en van de schrijfwaarde de overeen¬ 
komstige bits van het register onveran¬ 
derd. Een voorbeeld. Om alleen FLAG- 
interrupts toe te staan moeten eerst alle 
interruptmogelijkheden worden verboden. 
Bit 7 van de eerste te schrijven waarde 
moet dus 0 zijn en de overige bits 1. Om I 


alleen FLAG toe te staan moeten bit 7 en 
bit 4 van de tweede waarde 1 zijn en de 
rest 0. Achtereenvolgens worden dus de 
waardes 01111111 = 127 = $7F en 
10010000 = 144 = $90 naar het ICR- 
register geschreven. 

Op het adres van 1.D wonen voor de 
gezelligheid weer eens 2 registers i.p.v. 1. 
Het eerste register hebben we hierboven 
behandeld. Het dient om interrupts toe te 
staan of te verbieden, en je kunt er alleen 
maar naar schrijven. Bij lezen krijg jeVfe 
inhoud van het tweede register, waarvan 
de inhoud aangeeft of er interrupts zijn 
opgetreden. Een 1 staat vooreen interrupt 
en een 0 voor geen interrupt. De verschil¬ 
lende bits hebben weer betrekking op de 
verschillende interruptmogelijkheden. Als 
nu een bit van het eerste en een overeen¬ 
komstig bit van het tweede register allebei 
1 zijn, wil dat zeggen dat er een toegestane 
interrupt is opgetreden, en wordt bit 7 van 
het tweede register automatisch 1. Als dat 
het geval is wordt er tenslotte een signaal 
over de IRQ-lijn gegeven. Zo’n voorwaar¬ 
de van "allebei 1 ” is te vergelijken met een 
AND-bewerking. 

De bits van het tweede register worden 
door lezen van het register gecleard (0 
gemaakt). Deze opdracht moet onderdeel 
zijn van de interruptroutine om te voorko¬ 
men dat na terugkeer naar het hoofdpro¬ 
gramma meteen weer een interrupt (de¬ 
zelfde) optreedt. 

1.E Control Register A (CRA) 

De bits van dit register hebben elk een 
aparte functie. Bit 7 geeft aan of de TOD- 
clock een lichtnetfrequentie van 50 Hz (1) 
dan wel van 60 Hz (0) verwacht. In Neder¬ 
land werken we met 50 Hz, dus dit bit moet 
1 zijn om de TOD-clock juist te doen 
functioneren. 

Bit 6 geeft aan of het SDR-register gebruikt 
wordt voor input (0) dan wel output (1). 

Bit 5 geeft aan of Timer A 1 stap naar 
beneden telt per klokcyclus (0), dan wel 
per ”hoog"-signaal op de CNTI-lijn (1). In 
het laatste geval is een op de Userport 
aangesloten apparaat verantwoordelijk 
voor de "countdown”. 

Bit 4 . Door bit 4 ”1 ” te maken laad je de 
laatste naar registers 1.4 en 1.5 geschre¬ 
ven waardes (weer) in Timer A. 

Bit 3 geeft aan of Timer A volgens "conti- 
nuous’’- (0) dan wel ”one shot”-mode 
werkt. In ”continuous”-mode (1) wordt hij 
geladen, telt terug naar 0, laadt zichzelf 
automatisch weer met de laatst geschre¬ 
ven waarde, telt weer terug naar 0 enz ... 
Deze procedure wordt continu herhaald. In 


”one shot”-mode telt hij 1 keer terug naar 
0, laadt de vorige waarde en stopt. Deze 
mode wordt o.a. gebruikt bij het schrijven 
van data naar cassette. 

Bit 2 is in CIA 1 niet van belang. Zie voor de 
betekenis ervan de toelichting bij register 
2.E. 

Bit 1 moet in Cia 1 altijd 0 zijn. Zie voor de 
betekenis ervan de toelichting bij register 
2.E. 

Bit 0 wordt gebruikt om Timer A te stoppen 
(0) dan wel te starten (1). In "continuous”- 
mode hoef je natuurlijk maar 1 keer te 
starten. 

1.F Control Register B 

De bits van dit register hebben weer elk 
een aparte functie; vooral m.b.t. Timer B. 
Bit 7. Als dit bit 0 is worden de naar de 
TOD-clock geschreven waardes in de 
alarmregisters gezet. Is dit bit 1, dan wor¬ 
den de waardes in de klokregisters gezet. 

Bits 6-5. Deze bits kunnen samen 4 waar¬ 
des vormen, die verschillende countdown- 
mogelijkheden voor Timer B voorstellen. 
00=Timer B telt terug met klokcycli, 
01=Timer B telt CNT1- signalen, 10=Ti- 
mer B telt "Timer A op 0”-pulsen (in deze 
mode vormen Timer A en Timer B samen 
een 32-bits eierwekker), 11 =Timer B telt 
"Timer A op 0”-pulsen, op voorwaarde dat 
op de CNTI-lijn een "hoog” (l)-signaal 
staat. 

Bits 4-0. Zie bits 4-0 van register 1 .E, maar 
dan m.b.t. Timer B. 


CIA 2 

Ook CIA 2 heeft 16 registers. De functies 
ervan zijn grotendeels gelijk aan de over¬ 
eenkomstige registers van CIA 1. Ik zal dan 
ook alleen de afwijkingen t.o.v. CIA 1 be¬ 
handelen. 

2.0 l/O-port A (PRA) 

Bits 7-3 van dit register dienen voor com¬ 
municatie met de Seriebus. Ze zijn daar 
namelijk via lijnen mee verbonden. 

Bit 7: Serial Bus Data Input. Via bit 7 komt 
door randapparatuur (o.a. disk-drive) ver¬ 
stuurde data bit voor bit de computer 
binnen. 

Bit 6: Serial Bus Clock Pulse Input. Het 
ritme waarin bit 7 data ontvangt wordt 
aangegeven met kloksignalen van het zen¬ 
dende randapparaat. Deze kloksignalen 
komen via bit 6 de computer binnen. De 
snelheid van zo’n ritme noemen we ook 
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wel de baudrate, die aangeeft hoeveel bits 
er per seconde worden verstuurd. Bij 300 
baud kun je bijvoorbeeld aannemen dat er 
30 karakters per seconde worden getrans¬ 
porteerd. 

Bit 5: Serial Bus Data Output. Via dit bit 
wordt data bit voor bit van de computer 
naar een randapparaat gestuurd. 

Bit 4: Serial Bus Clock Pulse Output. Via 
bit 4 wordt de Baudsnelheid van de data- 
uitvoer over bit 5 geregeld. Je moet, met 
behulp van de timers, zelf een "uitvoer- 
klok” fabriceren, wantje kunt de timers niet 
rechtstreeks op bit 4 aansluiten. 

Bit 3: Serial Bus ATN Signal Output. ATN is 
een afkorting van attention. Met dit signaal 
maakt de computer duidelijk dat hij wil 
communiceren met 1 van de apparaten die 
aan de Seriebus hangen (de Seriebus kun 
je doorlussen). Hierop beginnen alle appa¬ 
raten te luisteren naar de computer. Deze 
stuurt dan over de data-lijn het nummer 
van het apparaat (device) waarmee bij wil 
communiceren. 

Bit 2: RS-232 Data Output (UserPort). Er 
bestaan bepaalde systemen om een com¬ 
puter te laten communiceren met randap- 
paraten. Zo’n systeem bestaat uit een 


aantal afspraken over o.a. het gebruik van 
lijnen tussen de aangeslotenen. De User- 
port van de Commodore 64 kan d.m.v. 
ROM-routines in het operating-system 
worden gebruikt om te communiceren vol¬ 
gens het RS-232 systeem. Hierbij wordt 
data serieel (bit voor bit) over bit 2 de 
computer uit gestuurd om via een lijn bij 
pin M van de Userport het aangesloten 
apparaat binnen te komen. 

Bits 1 -0: VIC Bank Select. De VIC-chip kan 
slechts 16K geheugen tegelijk beheren, 
met bits 1 -0 bepaal je welke van de 4 16K- 
banken door hem "gezien” kunnen wor¬ 
den. 00=$C000-$FFFF, 01 =$8000- 

$BFFF, 10=$4000-$7FFF en 11 =$0000- 
3FFF. Normaal gesproken zal hij kijken 
naar de laatste bank. 

2.1 l/O-port B (PRB) 

De bits van dit register zijn allemaal via 
aparte lijnen verbonden met de Userport. 

Ze spelen ieder een eigen rol in het RS-232 
systeem, maar je kunt ze (als je een beetje 
verstand hebt van electrotechniek) natuur¬ 
lijk ook voor eigen doeleinden gebrui¬ 
ken. Over de Userport als RS-232 poort in 
het algemeen nog dit: om als zodanig te 
kunnen functioneren moet het spannings¬ 
niveau van de Userport worden aangepast 


aan de RS-232 norm. Raadpleeg de Refe- 
rence Guide voor het hoe en waarom. 

Bit 7: Data Set Ready. 

Bit 6: Clear To Send. Naar bit 6 kun je met 
behulp van register 2.E tevens "Timer A op 
0”-signalen sturen. 

Bit 5: Dit bit is niet gedefinieerd ais een RS- 
232 bit. 

Bit 4: Carrier Detect. 

Bit 3: Ring Indicator. 

Bit 2: Data Terminal Ready. 

Bit 1: Request To Send. 

Bit 0: Received Data. 

2.2 - 2.B 

De werking van Data Direction-registers, 
timers en de TOD-clock is bij CIA 2 hetzelf¬ 
de als bij CIA 1. Ik wijs er nogmaals op dat 
CIA 2 een NMI i.p.v. een IRQ als interrupt- 
mogelijkheid heeft. 

2.C Serial Data Register 

Via dit register kun je, net als met 1.C en 

SPI, over SP2 serieel data naar/van de 



AUTHORIZED COMMODORE REPAIR CENTRE 

Reparatie van: 

C64, C16, VIC 20 

MONITOREN, PRINTERS, DISC-DRIVES 

Sèw 


••fcSSSP 


Vraag informatie voor andere merken 

ELECTRONIC SERVICE CONTRACTORS BV 

Wijnhaven 80, 3011 WT Rotterdam, 010-333211 


m 

mmosuppokT 


Een echte Commodore printer 
(dus echte Commodore listing 
en grafiek) met het 


WW 92000 G interface 


voor slechts 


ƒ 225,- 

Adviesprijs ƒ 289,- 


Bestel hem nu, geschikt voor 
alle printers in de lijst. 

TEL 02526-74346 
NIEUW-VENNEP 


Lijst van printers: 

BMCBX80, BX100 

Brother HR5, HR10, HR15, HR25, Ml009 

Centronics 150,154, 7xx, GLP, Horizon 

Copal SCI 000, SCI 200 

CTICP80, CPA80 

Epson MX80, MX82, RX80, FX80 

C.ltoh 1550, 8510, 8600 

Inforunner Riteman 

KG DPI 65 

Mannesmann MT80 

NEC 8023, P2, P3, Spinwriter 

Oki 80, 82, 83, 84, 92, 93 

Panasonic KX-P-1090, KX-P-1091 

Quen-Data DMP1100, DMP1180 

SakataSPIOOO, SPI 200 

SCMD100, Fastext 80 

Seikosha GP 700 

Siber Kikai SP80 

Speedy80,100 

Star Gemini, Delta, Radix 

en vele andere printers. 
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Userport zenden/ontvangen. Deze moge¬ 
lijkheden hebben echter niets te maken 
met het RS-232 systeem. 

2.D Interrupt Control Register (ICR) 

Dit register werkt als register 1.D, met het 
verschil dat FLAG- interrupts (bit 4) bij RS- 
232 communicatie het gevolg zijn van ”Re- 
ceived Data”-signalen. Die kunnen name¬ 
lijk behalve naar bit 0 van register 2.1 ook 
naar de FLAG-pin van CIA 2 worden ge¬ 
zonden. 

2.E Control Register A (CRA) 

Zie register 1 .E, behalve voor bits 2 en 1. 
Als bit 1 ”1” is worden "Timer A op 0”- 
pulsen naar bit 6 register 2.1 gestuurd. Is 
bit 2 hierbij 0, dan gaat dit in de vorm van 
”1 "-signalen die een klokcyclus duren. Als 
bit 2 echter 1 is, dan wordt het bestaande 
signaal telkens geinverteerd ("0” wordt ”1 ” 
en ”1” wordt ”0"). Is bit 1 gelijk aan 0, dan 
wordt er niet uitgevoerd. Bij CIA 1 is deze 
mogelijkheid ook aanwezig, maar dit is 
nutteloos en zelfs af te raden omdat je 
uitvoerapparaat bestaat uit toetsenbord of 
joystick. 

2.F Control Register B (CRB) 

Zie register 1 .F. Bits 2 en 1 controleren nu 
echter de output van Timer B naar bit 7 van 
register 2.1. 


Analyse 


9000 

78 


‘ 


SEI 



900 1 

2® 

44 

E5 

\ 

JSR 

$E544 


3004 

A0 

80 


LDY 

#$80 


9006 

84 

FE 



STY 

$FE 


9008 

A0 

00 



tw 

#$00 


900A 

84 

FB 



STY 

$FB 


900C 

A2 

20 



LDX 

#$20 


900E 

86 

FC 



STX 

$FC 


3010 

38 




TYA 



9011 

91 

FB 


7. 

STA 

($FB),Y 


9013 

C8 



INY 



90 14 

D0 

FB 



BNE 

$9011 


9016 

E6 

FC 



INC 

$FC 

VOORBEREIDING 

9018 

A5 

FC 



LDA 

$FC 


90 IA 

2A 




ROL 



90 1B 

10 

F3 



BFL 

$9010 


90 1D 

86 

FC 



STX $FC 


90 1F 

A9 

IC 



LDA 

#$1C 


9021 

8D 

18 

D0 

3 

STA 

$D0 18 


9024 

A9 

3B 



LDA 

#$3B 


9026 

8D 

1 1 

D0 


STA 

$D0 1 1 


9029 

A9 

90 



LDA 

#$90 


902B 

8D 

15 

03 


STA 

$0315 


902E 

A9 

3F 


1 

LDA 

#$3F 


9030 

8D 

14 

03 


STA 

$0314 


9033 

58 




CLI 



EI'-EEl 

§0 

TT 



BCC 

$9034 


9036 

66 

FE 



ROR 

$FE 


9038 

C8 




INY 


WACHT 

9039 

D0 

F9 



BNE 

$9034 


903B 

E6 

FC 



INC 

$FC 


903D 

90 

F5 



BCC 

$9034 


903F 

AD 

0D 

DC 


LDA 

$DC0D 


9042 

BI 

FB 



LDA 

($FB),Y 


9044 

45 

FE 



EOR 

$FE 


9046 

91 

FB 



STA 

($FB),Y 


9048 

68 




PLA 


IRQ 

9049 

68 




PLA 


904 A 

68 




PLA 



904B 

28 




PLP 



904C 

66 

FE 



ROR 

$FE 


904E 

08 




PHP 



904F 

40 




RTI 




Dan nu analyse van het programma uit het 
vorige nummer. 

Bijgaande listing is onderverdeeld in de 
subroutines Voorbereiding, Wacht en IRQ. 


Tijdens Voorbereiding 1 worden IRQ’s ver¬ 
boden, de kleur voor het hires-scherm 
wordt ingesteld (JSR $E544) en lokatie 
$FE wordt gelijk gemaakt aan #$80. $FE 
wordt gebruikt om aan te geven welk bit 
van een geheugenplaats aan de beurt is 
om aan gezet te worden. We beginnen dus 
met bit 7. Voorbereiding 2 zorgt voor het 
vegen van het hires-scherm ($2000- 
$3FFF). Hierbij wordt gebruikgemaakt van 
een pointer op $FB/$FC. Met de konstruc- 
tie LDA $FC, ROL, BPL $9010 wordt getest 
of de Hi- byte van de pointer al gelijk is aan 
#$40 (bit 6 dus 1). Een andere manier was 
geweest BIT $FC, BVC $9011. Voorberei¬ 
ding 3 regelt via de VIC-chip de plaats van 
het hires-scherm, en zet de bitmap-mode 
aan. Tenslotte wordt in Voorbereiding 4 de 
IRQ- vektor veranderd in $903F. IRQ’s 
worden weer toegestaan. 

Vervolgens pendelt het programma heen 
en weer tussen de routines Wacht en IRQ. 
Wacht houdt bij welke geheugenplaats 
aan de beurt is, en IRQ welk bit van deze 
geheugenplaats. Het gezette bit van $FE 
wordt daartoe telkens naar rechts gero¬ 
teerd. Bij elke interrupt wordt er een bit van 
het scherm aan gezet door de inhoud van 
($FB),Y te EOR-en met de inhoud van $FE. 
Als de carry 1 is hebben we alle bits van 
een locatie gehad, en wordt het Y- register 


PRIJSDOORBRAAK! 


Acoustisch Viewdata- 

modem van Vidicode prijzen inclusief BTW 


Dit modem biedt toegang tot Viditel en veel vrij 
toegankelijke systemen waaronder binnenkort de 
VIDICODE databank met veel telesoftware! 



• 1200/75 baud full duplex 

• 1200/1200 baud half duplex 

• Aansluitbaar op een standaard 
RS 232 interface 


fl. 169.- 

PTT-goedgekeurd 


Koop een combinatiepakket! 

De geleverde viewdata software is in Nederland geproduceerd, van 
professionele kwaliteit en heeft een veelheid aan mogelijkheden 
waaronder een telesoftware downloader volgens het systeem van de 
PTT: 

• CBM 64 : Modem, interface, kabel en programma fl. 269.- 

• Spectrum : Modem, interface, kabel en programma fl. 289.- 

• Spectrum : Modem, kabel en programma voor Interface I fl. 259.- 

• Acorn BBC: Modem, kabel en software in rom fl. 329.- 



Te bestellen door het desbetreffende bedrag 
over te maken op postrekeningnr. 5619114 
t.n.v. VIDICODE Zoetermeer of via Uw 
computerleverancier. 

Vidicode Postbus 7164 

2701 AD Zoetermeer 
Telefoon 079-310342 


5 TUT 



Veel gebruikers van cassette¬ 
recorders tbv de computer 
Commodore 64 ergeren zich 
tijdens het laden van een met 
de Commodore gemaakt pro¬ 
gramma aan de melding op het 
scherm: load error. De oor¬ 
zaak ligt in het feit dat een band 
is gevuld door ’n recorder met 
een kopstand (azimuth), die af¬ 
wijkt van de recorder waarmee 
geladen wordt. Zonder hulp¬ 
middelen is het praktisch bijna 
onmogelijk om de juiste stand 
van de kop te vinden. 


Door de NO LOAD ERROR in 

de recorder in te bouwen be¬ 
hoort het probleem tot het ver¬ 
leden. 

Deze van een LED (lampje) 
voorziene module kan door de 
meesten zelf met wat knutsel¬ 
werk worden ingebouwd, daar 
een volledig montagevoor- 
schrift wordt meegeleverd. 
Met een schroevendraaiertje 
kan men nu zelf de juiste stand 
van de kop afstellen. Het lamp¬ 
je zal dan zo fel mogelijk 
branden. 

Voor meer informatie: E.H.B. 
Handelsonderneming, Schu- 
bertlaan 16,4904 MKOoster- 
hout. Telefoon 01620-54798. 


De NO LOAD ERROR is ver¬ 
krijgbaar bij de vakhandel en 
kost ca. ƒ 69,-. 
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(en eventueel $FC) met 1 verhoogd door 
Wacht. $FE wordt daarna weer geroteerd, 
met als gevolg dat het 7e bit weer 1 wordt. 
Het hele proces begint dan opnieuw voor 
de volgende geheugenplaats. De drie 
PLA’s van de IRQ-routine zijn nodig omdat 
het A-, X-, en Y-register, voordat er indirect 
naar $0314/$0315 wordt gesprongen, 
door het operating-systeem op de stack 
worden gezet. Zodoende kan het hoofd¬ 
programma, na onderbreking door een 
IRQ, worden hervat met dezelfde register- 
inhouden als voor de IRQ. 

De lezers mogen proberen achter de reden 
te komen waarom ROR $FE in de IRQ- 
routine vooraf wordt gegaan door PLP en 
gevolgd wordt door PHP. 

TOD-programma 

De Commodore 64 kent twee BASIC-op- 
drachten die met tijd te maken hebben: Tl 
en Tl$. Tl$ geeft de tijd aan in uren, minu¬ 
ten en seconden; Tl in 1/60 seconden. Op 
het moment dat je de computer aan zet, 
worden deze variabelen automatisch 0 
gemaakt. Vanaf dan geven ze de tijd aan 
die verstreken is sinds je de computer 
aanzette. Tl$ kun je echter ook veranderen 
met de opdracht Tl$ = ”XXXXXX”. Hier¬ 
mee kun je er een klok van maken, die de 
juiste tijd aangeeft. 

De functie TI/TI$ bestaat uit 3 RAM-geheu- 
genplaatsen: $AO-$A2 (160-162). Samen 
vormen die een 24-bits waarde, die bij elke 
1/60 seconde interrupt met 1 wordt ver¬ 
hoogd. Deze klok heeft twee grote nade¬ 
len. Ten eerste is om diverse redenen de 
nauwkeurigheid niet zo groot. Er moet 
zelfs met een maximale afwijking van een 
half uur per dag rekening worden gehou¬ 
den. Het tweede nadeel is het feit, dat het 
bijhouden van de tijd stopt, als je bezig 
bent met cassette-input/output. Hiervoor 
maakt het operating-system namelijk ge¬ 
bruik van IRQ’s (i.p.v. NMI’s bij disk-l/O). 
Het programma van deze aflevering scha¬ 
kelt voor het bijhouden van de tijd de Time 
of Day-clock in. De TOD-clock is "recht¬ 
streeks” aangesloten op het lichtnet, en 
wordt door de stroomfrequentie automa¬ 
tisch opgehoogd. Zolang de computer aan 
staat heb je dus nooit last van tijdelijke 
stilstand. Bovendien is de algemene 
nauwkeurigheid van deze klok ook veel 
groter dan die van TI/TI$. 

Als input vraagt het programma de juiste 
tijd. Vervolgens worden deze waardes in 
BCD-formaat omgezet en in de TOD-clock 
gepookt. Daarna kan je door toets F1 in te 
drukken, de tijd linksboven in je scherm 
krijgen. Als je weer een keer F1 indrukt 
verdwijnt de tijd. Je kunt dan ongestoord 
andere programma’s laden, uitvoeren, lis¬ 
ten etc. Het bijhouden van de tijd gaat 
ondertussen gewoon door. Met F1 ver¬ 
schijnt hij weer in beeld. 


1 10 PT=0: A-56328 
120 POKE A+e.PEEK(A+S) OE 128 
.130 POKE A+7,PEEK(A+7) AND 127 
140 INPUT “UREN (0-23)”:U 
150 INPUT "MINUTEN (0-59)";M 
160 INPUT “SECONDEN (0-59)";S 
170 P U = 0 : IF U=0 THEN U-24 
180 IF U>12 THEN PU=PU+128: U=U-12 
210 L=INT(U/10): K=U-L*10 
220 PU=PU+L*16+R 
230 PM-0 : L=INT(H/10): R=K-L*10 
240 PM=FM+L* 16+R 
250 PS=0: L=INT(S/10): R=S-L*10 
260 PS=PS+L*16+R 
270 POKE A+3.PU: POKE A+2.FM 
280 POKE A+l.PS: POKE A.PT 


5 L 0 

B=820: 

FOR X=0 TO 6 


520 

READ Y 

POKE B+X,Y : 

NEXT 

530 

C=1020 

FOR X=0 TO 

2 

540 

READ Y 

POKE C+X,Y: 

NEXT 

550 

D= 105 1 

FOR X=0 TO 

12 

560 

READ Y 

POKE D+X, Y •* 

NEXT 

570 

E=61440: FOR X=0 TO 

165 

580 

READ Y 

POKE E+X,Y: 

NEXT 

590 

SYS D: 

END 



709 REM ******** ROM/RAM ************** 

710 DATA169.229,133, 1, 78, 16,240 

714 REM ******** RAM/ROM ************** 

715 DATA 133, 1, 96 

719 REM ******** IRQ NAAR *0334 ******* 

720 DATA 120, 169, 52,141, 20, 3,169, 3 

730 DATA 141, 21, 3, 88, 96 

739 REM ******** IRQ-ROUTINE ********** 

740 DATA 40, 3, 41, 12, 48, 13, 46, 2 

750 DATA 1, 11, H, 5, 18, 0, 0, 0 

760 DATA 160, 0,140, 15,240,166,197,224 

770 DATA 4,208, ’ 19, 173, 13.240.20lj 4 

780 DATA240, 12,173, 14,240, 73,255,141 

790 DATA 14,240,136,140, 15,240,142, 13 

800 DATA240, 44, 14,240, 48, 20, 44, 15 

810 DATA240, 16, 96,162, 12,169, 32,157 

820 DATA 0, 4,157, 40, 4,202, 16,247 

830 DATA 48, 81,162, 12,189, 0,240,157 

840 DATA 40, 4,202, 16,247,162, 12,169 

850 DATA 42,157, 0, 4,202,202,202, 16 

860 DATA248,162, 3,160, 1,189, 8,220 

870 DATA 16, 12, 41,127,201, 18,240, 16 

880 DATA248,105, 18,216,208, 10,224, 3 

890 DATA208, 6,201, 18,208, Z, 1S9] 0 

900 DATA 72, 41,240, 74, 74, 74, 74, 24 
910 DATA 105, 48,153, 0, 4,200,104, 41 

920 DATA 15,105, 48,153, 0, 4,200’200 

930 DATA202, 16,202,169,234, 72,169, 48 
940 DATA 72,169,231, 76,252, 3 

Met het BASIC-programma laad je 4 ma- 
chinetaalroutines in het geheugen. De 3e 
routine wordt met SYS D eenmalig uitge¬ 
voerd. Het betreft een omlegging van de 
IRQ-vektor van $EA31 naar $0334. Dat kan 
niet in Basic gebeuren omdat je dan na de 
eerste byte te hebben vervangen, ge¬ 
stoord kunt worden door een IRQ waarvan 
de vektor even naar een totaal onzinnige 
plaats wijst. De andere 3 routines worden 
elke IRQ uitgevoerd. Ze nemen ”geen ge¬ 
heugen” in beslag; d.w.z. nietgebruikt ge¬ 
heugen in het operating-system gebied 
($0334-$033B en $03FC-$03FF) en RAM- 
onder-ROM-geheugen (vanaf $F000). Het 
programma zal dus zonder problemen 
"gelijktijdig” met 99% van alle BASIC- 
programma's lopen. 

Nadat het programma is gerund, gebeurt 
er het volgende. Bij de eerstvolgende IRQ 
wordt er gesprongen naar $0334 i.p.v. 
$EA31, zoals gebruikelijk is. Op $0334 
wordt de Kernal-ROM ($E000-$FFFF) uit¬ 
geschakeld en er wordt gesprongen naar 
de routine die we in het onderliggende 
RAM hebben gepookt (vanaf $F000). Deze 
routine zorgt ervoor dat deTOD-tijd (indien 
gewenst) op het scherm verschijnt. Vervol¬ 
gens wordt er van hieruit gesprongen naar 


De speciaalzaak in 
het Gooi 


MICROWARE 

BUSSUM 


Voor de betere software 
en goede service 


Maandaanbieding: 

EASYSCRIPT 

ƒ69,- 

De originele versie met handleiding 

en vier spelen 


Alle software voor C16/VIC en 64 

C16Galaxians 

ƒ 34,- 

C160lympiad 

ƒ34,- 

C64 Speciale aanbieding Rompacks 

bv. Le Mans, Clowns’Joy voor 

ƒ 35,- 

Kluwer Boek: 


Leren programmeren met de C-64 

ƒ 27,50 


Verzending door het hele land 


Bel voor inlichtingen! 



MICROWARE 

BUSSUM 

Herenstraat 3, 1404 
HA Bussum 
S 02159-14436 
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9000 

28 

03 

29 

0C 2E 

13 2E 02 






9008 

01 

0B 

0B 

05 12 

00 00 00 












906 1 

A2 

03 

LDX 

#$03 

90 10 
90 12 

A0 

8 C 

00 

0F 

90 

LDY 

STY 

#$00 

9063 

A0 

01 

LDY 

#$01 

90 15 

A6 

C5 


LDX 

$C5 

9065 

9068 

BD 

10 

08 DC 
0C 

LDA 

BPL 

$DC08,X 
$9076 

9017 
90 19 

E0 

D0 

04 

13 


CPX 

BNE 

#$04 

$902E 

906A 

29 

7F 

AND 

#$7F 







906C 

C9 

12 

CHP 

#$12 

90 1B 

AD 

0D 

30 

LDA 

$300D 






90 IE 

C9 

04 


CUP 

#$04 

906E 


10 

BEQ 

$9080 

9020 

F0 

0C 


BEQ 

$902E 

9070 

F8 


SED 


9022 

AD 

0E 

90 

LDA 

$900E 

907 1 

69 

12 

ADC 

#$ 12 

9025 

49 

FF 


EOR 

#$FF 

9073 

D8 


C Ld 


9027 

8 D 

0.E 

90 

STA 

$900E 

9074 

D0 

0A 

BNE 

$9080 

902A 

88 



DEY 


9076 

E0 

03 

CPX 

#$03 







9078 

D0 

06 

BNE 


902B 

8 C 


90 

STY 

$900F 






902E 

8 E 

0D 

90 

STX 

$900D 

907A 

U9 

12 

CMP 

#* 12 

9031 

2C 

0E 

90 

BIT 

$900E 

907C 

D0 

02 

BNE 

$9080 

9034 

30 

14 


BMI 

$904A 

907E 

A9 

00 

LDA 

#$00 

9036 

2C 

0F 

90 

BIT 

$900F 

9080 

48 


. PHA 


9039 

10 

60 


BPL 

$909B 

9081 

29 

F0 

AND 

#$F0 

903 B 

A2 

0C 


LDX 

#$0C 

9083 

4A 


LSR 


903D 

A9 

20 


LDA 

#$20 

9084 

4A 


LSR 


903F 

9D 

00 

04 

STA 

$0400,X 

9085 

4A 


LSR 


9042 

9D 

28 

04 

STA 

$0428,X 

9086 

4A 


LSR 


9045 

CA 



DEX 


9087 

18 


CLO 


9046 

10 

F 7 


BPL 

$903F 

9088 

69 

30 

ADC 

#$30 

9048 

30 

5.1 


BMI 

$909B 

908A 

99 

00 04 

STA 

$0400,Y 

904 A 

A2 

0C 


LDX 

#$0C 

908D 

C8 


INY 


904C 

BD 

00 

90 

LDA 

$9000,X 

908E 

68 


PLA 


904F 

9D 

28 

04 

STA 

$0428,X 

908F 

29 

0F 

AND 

#$0F 

9052 

CA 



DEX 


9091 

69 

30 

ADC 

#$30 

9053 

10 

F 7 


BPL 

$904C 

9093 

99 

00 04 

STA 

$0400,Y 

9055 

A2 

0C 


LDX 

#$0C 

9096 

C8 


INY 


9057 

A9 

2A 


LDA 

#$2A 

9097 

C8 


INY 


9059 

9D 

00 

04 

STA 

$0400,X 

9098 

CA 


DEX 


905C 

CA 



DEX 


9099 

10 

CA 

BPL 

$9065 

905D 

CA 



DEX 


909B 

A9 

EA 

LDA 

#$^A 

90 5 E 

CA 



DEX 


909D 

48 


PHA 


905.F 

10 

F8 


BPL 

$9059 

909E 

A9 

30 

LDA 

#$30 







90A0 

48 


PHA 








90A 1 

A9 

E7 

LDA 

#$E7 







90A3 

4C 

FC 03 

JMP 

$03FC 


de 3e routine (op $03FC), die de Kernal- 
ROM weer inschakelt en die eindigt met 
een sprong naar de normale IRQ-routine 
($EA31). 

Na run/stop en restore werkt het program¬ 
ma niet meer, want de NMI-routine die 
hierop volgt zorgt er o.a. voor dat de IRQ- 
vektor weer wijst naar$EA31. De machine- 
taal-routines staan echter nog wel in het 
geheugen, en de klok loopt nog steeds 
door. 

Dat was het. De volgende aflevering gaat 
over de synthesizer van de Commodore 
64: De SID-chip. • 

S.B. 


Wat menig goede 
computer mist. 
is een goede monitor. 



Afgebeeld zijn de ZVM-123 monochroom- en de ZVM-133 
kleurenmonitor. 


PERFEKTIE IN AUTOMATISERING 


Zenithdata Systems 

Postbus 210 3730 AE De Bilt. Telefoon: 030-765844. 


Via het beeldscherm kijkt u als het ware in het brein van uw computer. 
Het is dus zaak dat een monitor een ragzuiver en helder beeld geeft van 
de spinsels van dat brein. Dat voorkomt fouten, ergernis en... hoofdpijn. 

Zenith monitoren hebben hun kwaliteit al wereldwijd bewezen. 
Monochroom (éénkleurig) met een groen of amber scherm, of in veel 
heldere kleuren. Bovendien zijn Zenith monitoren compatible met bijna 
alle belangrijke merken personal computers: 

Advance, Acorn, Apple, BBC, Commodore, IBM, Philips, Texas 
Instruments, etc. 

Ga eens kijken bij uw computerdealer of vraag vrijblijvend 
informatie aan. 

Dan zal ook de bijzonder vriendelijke prijs u opvallen. 





data 

Systems 
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Voor de Plus/4 en C-16 bezitters ook een stukje werk deze keer. Door het intikken van 
onderstaand programma van D. La Brijn uit Den Haag krijgen ze een echt spel. 

FRUITAUTOMAAT 


Een zeer bekend type gokautomaat is de eenhandige bandiet of fruitautomaat. 
Middels dit programma, dat als nadeel heeft dat er ook niet onder de tafel wordt 
uitbetaald aan de winaaars, kunt u met de C-16 en de PLUS/4 ook aan het gokken 
slaan. De speciale grafische karakters worden ook apart gegeven, zodat duidelijk 
wordt, wat in de Ijsting staat. 


10 REM FRUITAUTOMAAT COM.C-16 EN PLUS 4 
20 REM D. LA BRIJN TEL. 070-541033 
30 C0L0R4,2,1!COLQR0,7,7 sCOLOR1,3,2 
40 PR INT "LAM FRUITAUTOMAAT" 

50 PRINT" *************************" 

60 PR INTTAB< 3) " fflPUNTENTELLING:" 

70 PRINTTABO) "SHX GELIJK = JACKPOT" 

80 PRINTTABO) N 3X BAR = 25 PUNTEN" 

90 PR INTTAB(9)"3X GELIJK = 15 PUNTEN" 

100 PRINTTABO) "2X BAR = 5 PUNTEN" 

110 PRINTTAB O)"4X ONGEL IJK= 2 PUNTEN" 

120 PRINTTABO)"VERLIES = -5 PUNTEN" 

130 PR INT "HEI DRUK OP TOETS <S>' ALS JE WILT STOPPEN." 

140 PRINT"H9 DRUK DE SPATIEBALK IN VOOR DE START." 

150 GETKEYX*:IFXfK >" "THEN150 
160 CLR* COLOR0,2,7!V0L7 

170 REM TEKENING AUTOMAAT + TEKST PUNTENTELLING 
180 PR INT"JSH" 

190 A$="|*fcr T‘B$=”Ua 3FRUITAUT0MAAT3 

£00 C$="IM3 "iDS="ttia [3PUNTEN3 ■ a M 

210 E$="i*na Hr":F$="iiar V 

220 G^="iöa sa sa sa sa ":H*="tia3i aa 

230 K$="uaa sa sa sa sa ■ a ■ -:L$= M «na 

240 PR INTA$:PR INTB$:PR INTC4>:PR INTC$JPR INTC$*PR INTD*:PR INTC$ 
250 PR INTEPR INTA$:PR INTF$: PR INTG*:PR INTH**PR INTK$: PR INTH* 
260 PRIMTG$:PRINTL**PRINTER:PRINTA*:PRiNTCStPRINTC*:PRINTE* 
270 GOSUB1030 

£80 PR INT"9SBMI" ; TAB (26 ) .* CHR$<27) + CHR$04 ) 

290 PRINT"34X GELIJK ="SPRINT"JACKPOT" 

300 PRINT"ÏIJ3X BAR ="SPRINT"25 PUNTEN" 

310 PRINT*ttJ3X GELIJK ="SPRINT"15 PUNTEN" 

320 PRINT"SH2X BAR *"SPRINT" 5 PUNTEN" 

330 PRINT-SBW ONGELIJK=* «PRINT" 2 PUNTEN" 

340 PRIMT"BJv/ERLIES = " s PR ÏNT" -5 PUNTEN":PR INT"SET 
350 PRINT"gfflHffl5mfl'';TAB( 12)? " 

360 PR I NT" ®IglgKIsl5]KS"; TAB (12)' P 
370 FORL=1TO400:NEXT 
380 IFP <0THEN790 
330 REM START SPEL 

400 PR I NT" iiS®!lII3I3WSM5!KI^^ ' N TOETS " 

410 FORL=ITO 10SGETX^sNEXTïGETKEYX$ 

420 IFX$="S"THEN960 


430 A=A+1 

440 PRINT"S SS 
450 pp iNT"sn rofMWiira^ 


sa sa 

WACHTEN 


460 GOSUB1020 

470 REM BLOKKEN VULLEN + PUNTEN TELLEN 


480 B=0 s C=0 s 0=0:E=0:A$="" 
490 F0RL=1TO500JNEXT 


500 PRINT"StSKMïEHWKEI^ 
510 DO UNTIL B+C+D+E=4 
520 F = INT < RND < 1)*4 > + 1 


530 IFP >100ANDA >40THENF=3 
540 IFP >100ANDA>50THENF=2 
550 IFA>60THENF=1 
560 IFF = 1THENM$* "«33 AR1" s B=B+ 1 
570 IFF=2THENM^="lia«»»S" *C=C+1 
580 IFF=3THEm$="3l»tt"SD=D+l 
530 iFF=4THENM$="3aM4S" !E=E+1 
600 PRINT" :SOUND 1 ,850,6 

610 F0RL=1TO600 S NEXT 
620 LOOP 

630 F0RL=1TO800 s NEXT 

640 IFB=2THEMP=P +5 * GOTO730 

650 IFB=3THENP=P +25 s GOTO730 


VERKLAP IMG 

II CTRL-FLASH ON (REGEL 730 EN 830) 

S CTRL-FLASH OFF (REGEL 730 EN 830) 
■J SHIFT-CLEAR/HOME 
3 CLEAR/HOME 
3 CTRL-9 (REVERSE OM) 

* CTRL-0 (REVERSE OFF) 

3 CURSOR NAAR ONDER 
U CURSOR NAAR RECHTS 


^ COMMODORE-* 

F SHIFT-É. 

♦ SHIFT-Z 

• SHIFT-Q 

■ CTRL-1 (ZWART) 

3 CTRL-3 (ROOD) 

Ei CTRL-8 (GROEN) 

3 CTRL-7 (BLAUW) 

U COMMODORE-7 (DOt-KER BLAUW) 


Speciale service voor C-1 6 bezitters 


Uitbreidings-unit 

voor de C-16 

Via onze Infolist service hebben we speciaal voor 
onze lezers contact gelegd met een Engelse leveran¬ 
cier van uitbreidingsmodules voor de C-16, waarmee 
de geheugencapaciteit tot 64 KB is uit te breiden. 

ARTIC MCT 64K 
RAM BOARD 

Deze uitbreiding moet achterin de C-1 6 worden inge¬ 
bouwd (met montagevoorschrift)en laat dus de car- 
tridge sleuf vrij voor andere software. Alle C-16 
software blijft bruikbaar, maar ook de Plus/4 software 
kan nu gebruikt worden. Er is met de MCT 64K maar 
liefst 48 KB vrij in de High-Res mode (normaal 2 KB) en 
een enorme 60.5 KB vrij RAM voor Basic programma's. 


Prijs ƒ 275,- 

incl.BTW en verzendkosten 


Te bestellen door overmaken van dit bedrag op 
giro 3157656 tnv. Infolist Arkel met vermelding 
ARTIC. Inl. 01831-2904 
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BB0 IFC=30RD=30RE=3THENP=Ptl3iB0T0738 

678 IFB=10hDC-!ANDD>lfthOE-lTHEM’=P+2:6OTO730 

660 IFB-4ORC=4ORO=4ORE=4THENGOTO870 


690 psp-5 

700 REM PRINT VERLIES/WINST + GELIUD 
710 S0UN01,100,15 


mna ■ 


720 pRiNT-aaaa 

730 PRINT*__ 

740 FORL=860TO880STEP10:SOUND 1,L,4!FORM= 1TO100:NEXTMiNEXTL!SOUND1,890,20 


VERLIES 3 
WINST 23 


■:FORL=1TO800iNEXT!GOTO350 


750 FQRL=lTO800ihEKTïG0T035Ö 


760 GOTO350 

770 REM ALLES VERLOREN 

780 FORL=1015TO1STEP-20SSOUND 1,L,1:NEXTL 
790 COLOR0,7,7sCOLOR1,3,2 

800 PR INT"uKHllI*®•••••••••••••••••••••••••••••••••" 

810 PRINT"MfflBl*UAMhER, JE HEBT NIETS GEWONNEN. * 

820 FORL=1015T01STEP-20 * SOUND 1,L,1 1 NEXTL 
830 PRINT-fiSfflSMJWIL JE HET NOG EENS PROBEREN?" 

840 PRINT’ÏHEEllEIRUK DAN EEN TOETS IN VOOR DE START." 

850 PR INT"«GOTO 1000 

860 REM JACKPOT 

870- COLOR0,9,7:PRINT"iJSl8j" 

880 PR INTTAB < 10 ) ; ** M3 

890 PRINTTAB< 10); "Ü M JACKPOT 223 
900 PR INTTAB <10 >; "2 " 

910 FORL=1TO4!FORM=700TO900+L*28STEP15 
920 S0UND2,M,1:NEXTM: NEXTL 

930 PRINT"SHgaJE KRIJGT EEN GRATIS VOETREIS NAAR ROME!H" 

940 FORL=1TO700: NEXT5GOTO990 
950 REM STOPPEN 

960 COLOR0,?,?:PRIKT"jaSlH81*I«IJE BENT GEEN FANATIEKE GOKKER!" 

970 FORL=1T02!SOUND 1,720-L*130,10:FORM=ITO 100ïNEXTM:NEXTL:SOUND 1,230,25 
980 PR INT" 1BBHH1JUJ E HEBT ";P; "PUNTEN GEHAALD: GOTO990 
990 PRINT"ïaSSSlf'DG EEN SPEL? DRUK DAN EEN TOETS IN." 

1000 FORL=1TO10 sGETX$:NEXT:GETKEYX$:GOTO 160 
1010 REM HANDEL TEKENEN + OVERHALEN 

1020 FORL=3254T03614STEP40:FORM=1TO20:NEXT:POKEL,32:NEXTL 
1030 F0RL=3614T03254STEP-40:FORM=1TO20:NEXT:POKEL,160:POKEL-1024,0:NEXT 


1040 PR I NT TAB <21 ); Ai RETURN 

1050 END 


NABESTELLEN 


Wie oude nummers van Commodo- 
re-lnfo wil hebben, krijgt door over¬ 
making van ƒ 6,75 per nummer op 
giro 1585491 tnv. SAC dat opge¬ 
stuurd. Op andere wijze bestellen is 
helaas niet mogelijk, maar wel kunt 
u op de Commodore-lnfo beurs op 
14 september ook oude nummers 
ter plaatse kopen. 


ADRESWIJZIGING 
Commodore Info 
verhuist naar: 

Den Texstraat 5a, 
1017 XW te 
Amsterdam 
Tel. 020-273198 


SENSATIONELE DISKETTE AANBIEDING 

Ter gelegenheid van de Commodore-lnfo dag 
in Den Haag op 14 september 

NU REEDS EEN PRIJZENFESTIVAL 



5 1/4 inch SSDD (per tien) 

BASF normaal 79 . nu ƒ 55,- 

TDKvan 89.nu ƒ 60,- 

FLEXETTE van 98. nu ƒ59,- 

NASHUAvan55. nu ƒ45,- 

Blanko merk van 49. nu ƒ 39,- 


(met omruilgarantie, dus 100% goed) 


s peClAA L - 

Bij inlevering van de bon elders in het blad ont¬ 
vangt u bij aankoop van 20 merkdiskettes (geen 
Nashua) op de beurs zo’n prachtige Flip&File box 
25 twv. ƒ 92,- voor de aktieprijs van ƒ 15,-. 


3/12 inch SSDD (per tien) 


BASF van 160. nu ƒ 130,- 

Neutraai van 150. nu ƒ 120,- 


Prijzen inkl. btw. inkl. verzenden onder rembours 
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INZENDVOORW AARDEN 


Programma’s en artikelen kunnen aan de 
redactie van Commodore-lnfo, PB 112, 
1260 AC te Blaricum met vermelding RE¬ 
DACTIE Cl, worden ingezonden en worden 
eventueel geplaatst, waarbij de inzender 
een door de redactie te bepalen vergoe¬ 
ding ontvangt. Vermeld altijd naam, adres 
en vooral telefoonnummer. Alleen Listings, 
waarvan een cassette of diskette beschik¬ 
baar is, komen in aanmerking. 

Gezien het relatief grote aantal inzendin¬ 
gen kan verwerking enige tijd op zich laten 
wachten. Indien we zeker niet tot plaatsing 
overgaan, ontvangt men de inzending re¬ 
tour, eventueel houden we het nog enige 
tijd als reserve. 

SAC behoudt zich het recht voor, er redac¬ 
tionele wijzigingen in aan te brengen. Door 
inzending accepteert men, dat bij plaat¬ 
sing alle publikatierechten, ook in electro- 
nische vorm, op de uitgever van het blad 
overgaan en dat men het blad vrijwaart van 
aanspraken van derden, bijvoorbeeld om¬ 
dat het programma eigenlijk van een ander 
is of bv. deels of geheel uit een ander blad 
is overgenomen. Het overnemen van lis¬ 
tings door lezers is toegestaan, maar ver¬ 
koop van die listings, in welke vorm ook, 
aan derden is voorbehouden. 

Nieuwe hotline 

Sinds 15 augustus jl. is er een nieuwe 
hotline voor computer-hobbyisten opera¬ 
tioneel: de Computer Service Lijn, C.S.L. 
Deze door vrijwilligers bemande niet-com- 
merciële service-lijn is bedoeld voor ieder¬ 
een met vragen over aanschaf en onder¬ 
houd van computers, of met problemen 
over garantie, pripheral-aansluitingen, 
printers, etc. 

Voor ƒ 5,50 per jaar kan men zich laten 
inschrijven, waarna er onbeperkt gebruik 
van de aangeboden diensten kan worden 
gemaakt. De C.S.L. verzorgt ook cursus¬ 
sen en demonstraties over microcompu- 
tergebruik. 

De C.S.L. is dagelijks bereikbaar (behalve 
zondag) tot 22.30 uur ’s avonds: 070- 
231174. 

HARDWARE REAKTIES 

Met onze hardware suggesties wordt ge¬ 
werkt! In nummer 5 van Commodore-lnfo 
vertelden we hoe men een kleine draagba¬ 
re TV tot volwaardige computer-monitor 
kan ombouwen. We kregen nogal wat be¬ 
zorgde en soms boze reacties over de 
gevaren van een dergelijke ingreep. Inder¬ 
daad, we verzuimden te vertellen, dat al¬ 
leen kleine TV-tjes met een netvoedings- 
transformator in aanmerking komen voor 
ombouw. Bij een grote TV staat het chas¬ 
sis onder spanning en sleutelen in zo’n TV 


CAFKA COMPUTERS 

ECHT GOED EN GOEDKOOP. 


Computers 


CBM64 ƒ 625,- 

CBM128 ƒ1099,- 

SX 64 ƒ1798,- 

Amstrad6128 (128K) ƒ1899,- 

SinclairQL ƒ1499,- 



Printers 


MPS801 * 

ƒ 499,- 

Epson GX-80 * 

ƒ 999,- 

BrotherHRIO C * 

ƒ 898,- 

Star SG-10 C * 

ƒ 1199,- 

NakajimaAll 

* direct CBM aansluitbaar 

ƒ1399,- 

Accessoires 

Muis voor 64 

ƒ299,— 

Koala printer 

ƒ149,— 

Printshop 

ƒ179,— 

WW interface 

ƒ 279,— 

Ned.Handl.EasyScript 

ƒ 29,— 

Reference Guide 

ƒ 29,— 

Diskettebakken vanaf 

ƒ 20,- 

Computerfacts 

ƒ 47,50 

(C64 en 1541 schema’s) 

3M diskettes (10) 

ƒ 69,— 

BASF diskettes 

ƒ 45,— 

Nashua diskettes 

ƒ 45,— 


•v Elite op disk ƒ 89 «w-Shadow- 
fire ƒ49 Intern.Soccer (cart) 
ƒ 25 «cFIigh Simulator II ƒ195 
•«r Machine code tutor f79m- Alle 
Prompt zakelijke programma’s 
w Oxford Pascal ƒ 249 w-Music 
Studio ƒ 79 w-Colossus Chess 
ƒ49 irWay of exploding fist ƒ 75 
w~A view to a Kill ƒ 55 ««-Fourth 
protocol ƒ 65 w-Alice in Video¬ 
land ƒ10 m- Mini-Office ƒ 29 
■•-Softaid ƒ 25 



CAFKA AMSTERDAM 

CAKFA HAARLEM 

Nieuwe Kerkstraat 67 

Oude Groenmarkt 24 

020-273598 

023-312769 


is derhalve levensgevaarlijk. Voor de TV, voor de computer en niet in de laatste plaats 
voor de sleutelaar. Excuus voor het verzuim en alsnog die vergeten waarschuwing, die 
we ai in nummer 6 kort vermeldden. We denken, dat er weinig mensen zijn, die zonder 
enige kennis van zaken in een TV gaan spitten, maar toch.... 

We kregen gelukkig ook een berg waardevolle aanvullingen en tips in deze ombouw- 
kwestle. Als dit is uitgespit, laten we u dat uitgebreid weten. Alvast een paar: 

Dirk Visser lukte de ombouw van zijn TX-3 door een aparte monitorversterker uit Eiektuur 
te gebruiken. Hij suggereert bovendien een weerstand tussen de + 11V en de potmeter 
R1 en voor het regelen van het geluid een aansluiting tussen IC301 en de computer via 
een weerstand van 1 MOhm aan een potmeter van lOKOhm die samen met een 4,7 
mikroFarad condensator in serie tussen aarde en computer staat. • 
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